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ABSTRACT 


Surveillance  of  the  oceans  by  shore  based  facilities 
is  an  important  segment  of  the  ASW  mission.  A  system  with 
enhanced  capabilities  is  presently  being  developed  but 
problems  arise  in  the  training  of  Navy  enlisted  personnel 
to  utilize  this  sophisticated  equipment. 

An  embedded  tutorial  training  program  preserves  all 
the  benefits  of  computer  assisted  instruction  (CAI)  while 
reducing  the  greatest  disadvantage,  cost.  A  demonstration 
of  an  embedded  tutorial  is  presented  which  introduces  the 
new  operator  to  the  system,  provides  help  during 
operations,  and  has  refresher  exercises  for  experienced 
operators.  Since  a  sophisticated  computer-based  system 
must  provide  guidance  and  direction  during  operations  the 
introduction  and  refresher  are  available  at  almost  no 
cost . 

This  demonstration  system  is  intended  only  to  show 
that  a  tutorial  system  can  be  developed  and  deployed  and 
does  not  purport  to  be  a  complete  deployable  system 
itself. 
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I.  INTRODUCTION 

An  embedded  tutorial  is  ideal  as  a  training  device  for 
individuals  required  to  utilize  a  computer  in  their 
operational  tasl-cs  because  it  possesses  all  the  advantages 
of  computer  assisted  instruction  (CAI),  while  reducing  its 
major  disadvantage,  cost.  CAI  improves  the  student's 
knowledge  of  the  subject  because  it  continues  to  give 
additional  information  until  the  individual  achieves  the 
desired  level  of  performance.  Studies  have  shown  that  this 
has  resulted  in  higher  test  scores  at  the  end  of  the 
instruction  period  and,  in  most  cases,  the  student 
finishes  in  a  shorter  amount  of  time  than  that  required 
for  conventional  instruction.  One  shortcoming  of  CAI  has 
been  a  rise  in  the  student  attrition  rate  while  using 
computer  based  instruction  in  some  applications.  Attrition 
rate  studies  show  that  the  use  of  computer  based 
instruction  often  increases  the  amount  of  student 
failures;  however,  in  the  case  of  ASV  trainees  the 
attrition  rate  is  decreased.  This  could  be  traced  to  the 
fact  that  the  selectees  for  ASV  training  are  of  a  slightly- 
higher  initial  aptitude  and  are  more  inclined  towards  use 
of  a  computer  since  their  operational  jobs  involve  the  use 
of  some  type  of  computer.  Apparently,  a  machinist  mate 
being  trained  on  the  repair  of  a  pump  would  feel  frustra- 
ted in  not  being  able  to  get  his  hands  on  the  equipment 
and  thus  would  reject  the  use  of  this  type  of  training. 


The  embedded  tutorial  described  in  this  paper 
demonstrates  the  capabilities  of  a  computer  and  a  color 
graphics  console  in  the  training  of  a  prospective  ASW 
tracker.  It  is  only  a  demonstration  because  the  actual 
system  is  not  fully  developed,  the  actual  type  of  color 
graphics  console  was  not  available,  and  the  actual  data 
for  test  cases  were  unattainable. 

The  numbers  throughout  this  paper  fall  into  three 
general  classifications,  common  knowledge  values,  general 
range  values,  and  specific  constraints.  The  common 
knowledge  values  are  those  numbers  that  can  be  found  in 
any  basic  textbook,  such  as  the  speed  of  sound  in  water, 
and  thus  are  not  classified.  The  general  range  values  are 
those  where  a  spectrum  of  values  could  be  sighted  and  thus 
a  random  value  was  picked,  for  example  41. S  as  the 
frequency  of  the  signal  being  detected.  The  last  numbers 
used  throughout  this  paper  are  a  series  of  XXX's  that  are 
substituted  for  values  which  could  not  be  revealed  for 
security  reasons.  The  actual  values  would  be  included  in 
the  operational  tutorial. 

The  tutorial  permits  the  user  to  proceed  in  any  of 
three  areas  of  study  depending  on  his  abilities  and 
previous  training.  There  is  a  basic  tutorial  on  the 
overall  system,  the  environmental  problems,  and  the 
formulas  used  to  tranform  the  data  into  useful  displays. 
Next,  there  is  a  short  tutorial  on  the  types  of  data 
displays  that   a   tracker   will   use   in   the   operational 


ie 


system.  Last,  there  is  a  set  of  scenarios  that  can  he  used 
to  refresh  the  skills  necessary  to  effectively  track 
vessels. 
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II .  SPEEDED  TUTORIALS 

A.   PURPOSE  OE  EMBEDDED  TUTOBIA.LS 

An  embedded  tutorial,  as  discussed  in  this  paper, 
neans  the  use  of  computer  aided  instruction  (CAI)  or.  the 
computer  and  graphics  terminals  that  are  actually  used  to 
track  ta^ets.  The  purpose  of  embedding  the  tutorial  in 
the  operational  system  is  three-fold:  first,  the 
individual  being  trained  becomes  accustomed  to  the 
surroundings  and  the  response  time  of  the  terminal? 
second,  since  the  computer  and  terminals  are  already- 
present  and  there  is  room  in  memory  to  store  the  tutorial, 
this  procedure  is  more  cost-efficient  than  a  separate 
system  or  conventional  training  ^etnods;  third,  it 
provides  a  reference  manual  for  an  operator  actually  using 
the  system.  There  are  many  more  subtle  benefits  in  usirg 
an  embedded  tutorial.  Ey  training  an  individual,  at  l°ast 
partially,  on  the  actual  operational  system  a  sreat  deal 
of  the  anxiety  of  a  young,  inexperienced  operator  ran  be 
relieved.  The  operator  will  become  familiar  with  the 
computer,  the  system,  and  their  idiosyncracies ,  and  thus 
be  more  comfortable  when  the  pressure  of  the  mission 
begins . 

An  embedded  tutorial  maintains  all  the  advantages  of 
computer  based  instruction  while  reducing  one  of  its  major 
disadvantages,   cost.   Since   the   tutorial  is  part  of  the 
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operational  system,  a  major  oart  of  the  cost  is 
eliminated.  Tver,  if  some  additional  memory  and  terminals 
have  to  be  installed,  great  savings  are  achieved.  The  data 
collected  "by  several  surveys  shows  that  even  with 
stand-alone  computer-based  instructional  systems  the  money 
saved  "because  of  reduced  training  time  "balances  the  cost 
of  the  system. 

While  manuals  could  be  provided  for  the  user  to  review 
when  a  problem  arises  on  the  operational  system,  it  would 
be  more  beneficial  for  the  user  to  see  the  solution  or 
course  of  action  on  the  terminal  being  used  at  that  time. 
A  picture  of  a  surface  plot  in  a  book  cannot  commare  to 
one  on  a  color  graphics  terminal  and  the  computer  can 
produce  a  vast  amount  of  variations  corresponding  to  the 
particular  problem.  Since  the  embedded  tutorial  is 
attached  to  the  operational  data,  the  reference  material 
could  be  kept  constantly  up  to  date. 


B.   SYSTFK  S2TU? 

This  tutorial  was  designed  to  demonstrate  some  of  the 
capabilities  of  a  color  graphics  system  to  provide  a 
computer-based  instructional  package.  While  the  Ramtek 
100A  used  for  this  study  performs  many  of  the  desired 
functions:  easy  color  manipulation,  simple  inout  devices, 
quick  response  to  user  input,  and  fair  picture  resolution, 
the  proposed  Ramtek  9400  system  has  superior 
characteristics.  It  out  performs  the  100A  system  in  speed, 
resolution,  and  other  capabilities.  The  Ramtek  9400  is   on 


the  order  of  ten  times  faster  than  the  present  system.  It 
also  has  32K  x  32K  virtual  picture  and  a  1024=  x  1280 
screen  resolution  which  enables  the  displays  to  anpear 
much  more  lifelike.  Some  of  the  capabilities  of  the  Pamtek 
9400  that  enable  the  designer  of  a  tutorial  more 
flexibility  are:  panning,  zooming,  blinking,  rotation  in 
90-degree  increments,  scrolling  up,  down,  right,  and  left 
within  arbitrary  rectangular  limits,  interrupts,  and 
delays.  Since  all  of  these  function  are  incorporated  in 
the  machine,  the  coding  of  a  tutorial  or  any  program  will 
be  greatly  reduced.  A  Ramtek  9400  is  presently  being 
installed  at  the  Naval  Postgraduate  School  Computer 
Laboratory,  which  will  allow  the  further  development  of 
this  tutorial  system. 

C.   ADVANTAGES  /  DISADVANTAGES 
1 .   Student  Achievement 

The  effectivenss  of  computer  aided  instruction 
compared  to  conventional  instruction  has  been  measured 
only  by  student  performance  and  not  by  on-the-job 
performance  after  graduation.  Student  achievement  migvt  be 
an  aid  in  predicting  quality  of  performance  on  the  job  but 
the  correlation  between  these  two  measures  has  not  been 
established  for  any  of  the  training  methods.  Student 
achievements  have  shown  that  computer  aided  instruction  is 
as  good  or  bptt°r  than  other  methods  in  practically  all 
cases.  The  fact  that  student  achievement  with  computer 
aided   instruction   (CAI)   is   better   than    conventional 
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instruction  or  individualized  instruction  may  also  "be  a 
direct  consequence  of  the  fact  that  students  instructed  "by 
CAI  regain  in  these  courses  until  they  have  mastered  all 
the  lessons.  The  critical  variable  thus  becomes  the  ancunt 
of  tine  needed  to  corrplete  courses  given  "by  computer-based 
instruction.  An  additional  benefit  is  achieved  by  ensuring 
that  an  individual  has  mastered  all  of  the  lessens  needed 
to  be  a  qualified  tracker  in  the  fleet. 
2.   Student  Time  Savings 

Findings  in  a  report,  IDA  paper  P-1375,  prepared 
for  the  Office  of  the  Under  Secretary  of  Defense  fcr 
Research  and  Engineering  shows  that  computer-based 
instruction  saves  about  one-third  of  the  time  required  for 
courses  using  conventional  instruction?  however,  there  are 
wide  variations  in  the  amounts  of  savings  that  ha,re  been 
reported.  Two  major  uncontrolled  variables  in  these 
studies  are  the  unknown  quality  of  the  instructional 
materials  used  in  the  various  comparisons  and  uncertainty 
that  the  same  amounts  cf  course  materials  were  used  in 
both  methods  of  instruction. 

The  fact  that  CAI  saves  time  is  consistent  with 
well-known  information  about  the  effect  cf  great 
differences  both  in  student  abilities  and  in  knowledge  of 
the  subject  at  the  start  of  any  course.  In  conventional 
instruction  with  a  fixed  amount  of  time,  these  differences 
lead  to  variations  in  the  amounts  of  knowledge  acquired  by 
the  end  of  the  course,  as  shown  by  a  distribution  of  final 
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grades.  In  individualized  instruction,  whether 
computer-based  or  not,  each  student  proceeds  at  his  own 
pace  and  differences  between  students  influence  the  amount 
of  time  needed  to  complete  the  course  more  than  it  dees 
the  amount  of  information  acquired.  Most  of  the  time 
savings  in  individualized  instruction  are  due  to  those 
students  whose  rate  of  progress  in  conventional 
instruction  would  be  too  slow;  typically,  that  rate  might 
be  one  that  permits  about  90  percent  of  the  students  to 
complete  the  course  during  the  fixed  period  of  time. 

Ac  example  of  the  time  savings  can  be  seen  in  the 
graph  (figure  2-1)  which  shows  the  reductions  in  student 
time  for  about  12,000  graduates  over  a  15-month  period 
ending  May  1978.  The  results  were  for  three  courses  on  the 
Navy  Computer  Managed  Instruction  System  at  Naval  Air 
Technical  Training  Center,  Millington,  Tennessee. 


ie 


HOURS 


TO 


CO!*pLFmr 


C0U3SE 


150  •■ 

140  ■ 

130  ■• 

120  ■■ 

110  -• 

100  ■• 

93  -• 

80  -• 

73  -• 

60  -• 


50 


-A 


MACHINIST  MATE 


BOILER 
TECHNICIAN 


ENGINEMAN 


FKAMJJASONDJFMA 

1977  197£ 


STUDENT  TIMS-SAVINGS 
FIGURE  2-1 


17 


3.   Student  Attrition 

Since  the  method  of  instruction  ray  influence  the 
number  of  students  who  can  sucessfully  complete  a  cours=, 
the  rate  of  academic  attrition  associated  with  alternative 
methods  of  instruction  is  a  matter  of  concern.  The  rate  cf 
attrition  is  a  measure  of  the  cost  cf  instruction  since  it 
influences  the  number  of  students  needed  to  enter  a  course 
in  order  to  produce  a  specified  number  of  graduates.  Only 
two  computer-based  instructional  systems,  the  Air  Icrce 
AIS  and  Navy  CMI,  have  received  extended,  though  still 
limited,  use  in  military  training.  Academic  attrition  may 
have  increased  in  courses  taught  this  way,  compared  to 
attrition  with  conventional  instruction  during  prior 
periods,  but  the  abilities  of  the  graduates  were 
significantly  higher.  Also  since  these  comparisons  to  not 
take  into  account  possible  changes  in  the  qualifications 
of  students  over  the  same  time  periods,  the  available  data 
suggests,  but  does  not  prove,  that  computer-based 
instruction  **:/  increase  academic  attrition  over  that 
found  with  conventional  instruction.  Figure  2-2  shows  the 
attrition  rates  of  seven  courses  taught  using  both  methods 
of  instruction. 
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4.   attitudes  of  Students  and  Instructors 

Students  almost  always  favor  ccmpu ter-based 
instruction  over  the  conventional  instruction,  while 
instructors  alrrost  always  have  unfavorable  attitudes 
towards  the  CA.I  instruction.  The  students  attidudes  are 
generally  due  to  two  factors:  excitement  about  the  use  of 
a  new  type  of  machine  and  better  control  over  the  material 
that  is  being  taught.  "Both  of  the  factors  are  constantly 
at  work  and  thus  by  the  tire  the  novelty  of  the  system 
wears  off  the  student  generally  has  ieveloped  a  strors 
attitude  that  he  has  control  over  his  academic  destiny. 
The  instructors,  on  the  other  hand,  dislike  the  new  system 
because  their  professional  training  is  still  largely 
oriented  towards  conventional  instruction  and  those  that 
are  assigned  to  computer-based  instructional  duties 
receive  little  guidance  on  how  to  conduct  such  courses. 

D.   COST-EFFECTIVENESS 

There  is  no  evidence  that  one  method  of  instruction  is 
most  cost-effective  for  all  types  of  military  training. 
The  most  cost-effective  method  for  a  particular  situation 
will  depend  upon  such  factors  as  type  of  course  material, 
location  of  instruction,  number  of  students,  and  life-span 
of  the  training.  It  is  apparent  that  the  lack  of  cost  data 
currently  available  for  this  system  makes  it  impossible  to 
examine  satisfactorily  the  conditions  which  would  make  a 
particular  method  of  instruction  the  most  cost-effective 
alternative   since   the   svstem   is   still  in  the  research 
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stages.  However,  the  type  of  course  material  seers  ideal 
for  a  computer-based  instruction  since  the  trainee  will  he 
using  the  computer  in  the  execution  of  his  duties.  The 
location  of  the  instruction  in  an  embedded  tutorial  is 
ideal  "because  it  is  present  in  his  work:  space  so  that  he 
is  able  to  refresh  his  skills  at  any  tine.  Vhile  the 
number  of  students  utilizing  the  instruction  has  a  bearing 
on  the  cost-effectiveness  of  the  instruction,  the  embedded 
tutorial  reduces  or  eliminates  the  cost  of  the  computer. 
Since  this  system  already  nas  the  computer  for  operational 
purposes,  t^e  tutorial  can  be  stored  and  operated  on  that 
computer,  with  the  possibility  of  purchasing  only  one 
additional  console.  The  life-span  for  this  system  looks 
favorable  for  computer-based  instruction  since  it  is  a  new 
system  that  should  be  around  for  an  extended  time.  Since 
it  is  a  new  system,  the  instructions  will  constantly  have 
to  be  updated  which  is  ideal  for  a  computer-based  system 
as  compared  to  a  textbook  that  would  have  to  be  reprinted. 
Other  benefits,  beyond  those  mentioned  above,  occur 
with  computer-based  instruction  largely  because  the 
computer  can  compile  records  and  direct  the  attention  of 
instructors,  on  the  basis  of  various  algorithms.  The 
following  list  of  benefits  is  illustrative  rather  than 
complete: 

1.  More  precise  data  for  impnoving  and  updating  course 
materials ; 

2.  Improved   control   over  equipment,  facilities,  and 
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materials  for  instruction? 

3.  Improved  allocation  of  resources  a^ong  students; 

4.  Improved  ability  to  accommodate  fluctuations  in 
student  loads; 

5.  Increased  student/instructor  ratios,  as  well  as  the 
ability  to  use  some  instructors  with  less  advanced 
qualifications; 

6.  Peduced  need  for  support  by  noninst ructional 
personnel ; 

7.  Peduced  time  of  students  on  base  waiting  for 
courses  to  start; 

6.  Improved  integration  of   records   of   students   at 
school  with  those  in  central,  computer-based  personnel 
files:  and 
9.  Improved  utilization  of  instructors. 
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III.  TUTORIAL 

The  embedded  tutorial,  as  described  in  the  following 
chapters,  is  designed  to  train  an  inexperienced 
individual,  provide  basic  data  information,  and  enhance 
the  skills  of  an  experienced  operator.  The  three  separate 
sections  of  the  tutorial  provide  the  versatility  necessary 
to  make  this  system  useful  because  it  coders  the  entire 
spectrum  of  training.  As  a  new  recruit  is  assigned  to  the 
station  it  would  be  advantageous  to  indoctrinate  him 
utilizing  the  actual  operational  system.  After  a  thorough 
review  of  the  basic  system,  the  user  can  start  to  get  a 
feeling  for  the  type  of  data  to  be  processed  by  continuing 
the  tutorial  in  the  data  display  section.  When  the  user  is 
ready  to  actually  use  the  operational  system,  it  would  be 
advantageous  to  first  practice  on  some  old  data  which  can 
be  done  by  utilizing  the  scenario  section  of  the  tutorial. 

The  displays  presented  throughout  this  paper  (figures 
3-1  to  6-17)  are  representations  of  the  actual  displays 
that  are  seen  on  the  operational  tutorial.  The  figures  do 
not  adequately  reflect  the  actual  display  because  the 
operational  system  is  on  a  color  graphics  console.  The 
outer  border  of  each  figure  represents  the  limits  of  the 
screen,  while  each  horizontal  line  depicts  a  change  of 
color.  For  example,  figure  3-2  is  broken  into  three 
sections  oj   the  two  horizontal  lines. 
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A.   INTRODUCTION  DISPLAY 

The  Embedded  Tutorial  Introduction  display  (figure 
3-1)  provides  the  user  with  the  option  areas  available. 
The  user,  dependent  on  his  skills,  can  choose  to  follow 
any  of  the  three  sections  of  instruction  or  quit  the 
entire  tutorial.  If  he  chooses  to  review  the  basic 
principles  of  the  systerr  (option  a),  then  he  will  receive 
the  fundamentals  of  the  system,  some  of  the  environmental 
problems,  and  a  little  theory  on  correlation  techniques. 
This  section  of  the  tutorial  flows  through  the  basic 
components  of  the  system  but  allows  an  inquisitive 
individual  the  ability  to  delve  into  some  additional 
details.  The  tutorial  starts  off  with  a  simple 
introduction  followed  by  the  overall  view  of  what  the 
system  is  trying  to  accomplish.  Next  a  list  cf  problem 
areas  related  to  the  environment  of  system  operation  is 
provided  with  the  option  to  further  examine  each  of  these 
problem  areas.  When  the  user  has  completed  the 
environmental  problems,  a  description  of  the  correlation 
technique  is  discussed  followed  by  a  brief  exhibition  of 
the  complex  machinery  of  the  system.  Upon  completion  of 
this  section  of  the  tutorial  the  program  will  return  to 
the  display  (figure  3-1)  in  the  main  program  and  allow  the 
user  to  again  proceed  along  any  of  the  three  routes,  basic 
principles  of  the  system,  data  information  displays,  or 
scenarios. 
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EMBEDDED  TUTORIAL  INTRODUCTION 

This  tutorial  is  designed  to  meet  the  needs  of  an 
assortment  of  users,  from  the  novice  to  the  experienced 
operator.  There  are  three  categories  that  can  he  reviewed: 

a)  The  basic  principles  of  the  system  are  discussed  and 
many  of  the  problems  associated  with  the  system's 
environment  are  dealt  with  in  this  section. 

b)  The  type  of  data  that  will  be  disolayed  during  actual 
system  operation  is  presented  alone;  with  explanations  of 
the  data  and  key  areas  to  watch  while  trarkirg. 

c)  k    set  of  practice  scenarios  are  presented  based  on  the 
parameters  inserted  by  the  operator.  These  scenarios  allow 
the  user   to   see  actual  data   being-  presented  and  the 
effects  of  various  parameter   settings.   Key   points   are 
also  highlighted  in  this  section. 


type  in  the  letter  cf  the  desired  category  cr  (c)  tc  quit. 


INTRODUCTION  DISPLAY 
FIGURE  3-1 
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If  the  individual  decides  that  the  data  information 
displays  (option  b)  is  the  area  that  needs  to  he  covered 
next,  then  an  assortment  of  data  in  the  format  that  will 
he  used  in  the  operational  case  will  he  presented.  This 
data  includes:  estimated  positions,  courses,  speeds, 
prohahilit ies  of  accuracy,  tau  values,  doppler  values,  and 
surface  plots  of  the  suspected  track.  These  are  only 
example  displays  to  illustrate  the  format  of  the  data  ard 
to  explain  the  meaning  of  various  values.  Key  areas  of 
interest  are  also  explained  in  the  lower  section  of  each 
display. 

When  the  user  is  ready  to  tackle  the  operational 
tasks,  data  that  has  already  been  processed  is  provided  in 
the  scenario  section  (option  c)  to  enhance  capahilities 
while  keeping  the  operational  data  safe  from  accidertal 
removal.  The  scenario  section  allows  the  user  tc  insert 
the  parameters  ana  then  displays  the  actual  data  in  the 
same  format  as  the  operational  system.  It  also  gives  a 
very  brief  explanation  of  the  reason  for  the  outcome  of 
the  data;  i.e.  The  data  is  variant  due  to  the  low 
coherence  level.  With  this  information  the  user  can  return 
to  the  parameter  setting  display  and  adjust  the  values  to 
obtain  a  better  set  of  data.  This  is  very  useful  in  a  new 
system  because  there  are  no  values  to  which  the  parameters 
can  be  set  which  automatically  achieve  the  best  results 
each  time.  The  scenario  section  is  a  good  starting  place 
and  also  an  excellent  place  for  an  experienced  operator  to 
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improve  performance  and  practice  different  types  of 
parameter  settings  without  damaging  the  operational  data 
or  downgrading  operational  performance. 

B.   INSTRUCTIONAL  DISPLAY 

The  instructional  displays,  an  example  is  figure  3-2, 
provide  the  user  with  the  basic  understanding  of  how  each 
display  will  be  set  up.  Each  section  has  slightly 
different  characteristics  so  there  is  a  different 
instructional  display  to  explain  each  section  of  the 
tutorial . 

Each  instructional  display  follows  a  basic  pattern: 
menu,  illustration,  and  explanation.  The  menu  provides  the 
user  with  the  possible  options  available  to  him  at  any 
time.  They  include:  "Continue"  which  will  proceed  to  the 
next  basic  illustration;  "Return"  which  will  return  the 
program  to  the  initial  display;  and,  option  categories  to 
proceed  to  any  of  the  possible  areas  of  further  detail 
desired  at  that  time.  The  illustration  area  of  the  display 
varies  from  a  picture  of  the  situation,  tc  a  display  of 
data,  to  the  correlation  formulas.  The  illustrations  try 
to  cover  as  much  information  as  can  normally  be  digested 
in  a  single  frame  and  then  the  explanation  section  tries 
to  clarify  any  additional  problems.  The  explanation 
occasionally  causes  the  user  to  be  uncertain  about  some 
point.  Additional  information  can  generally  be  obtained  by 
proceeding  to  one  of  the  option  areas. 
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Perm  of  the  next  possible  option  areas  is  presented  here 


Basic  diagrams  will  be  illustrated,  in  this  area.  They  will 
depict  a  view  of  the  overall  system,  environmental 
problems,  and  detailed  displays  of  questionable  areas. 
Peview  of  this  section  before  reading  the  explanation 
below  will  be  helpful  in  succeeding  displays. 


An  explanation  of  the  middle  area  will  be  displayed  in 
this  section.  Generally  it  will  be  a  simn:lifiod  review  of 
the  basic  concept  with  a  few  new  ideas.  If  the  new  ideas 
ere  not  fully  understood,  they  will  bp  listed  in  the  menu 
to  be  pursued  later. 


type  c  to  continue 


INSTRUCTION  DISPLAY 


FIGURE  3-2 
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IV.  BASIC  SYS  TIM  TUTORIAL 

This  chapter  describes  an  embedded  tutorial  written  for 
an  ASW  system  presently  being  developed  for  the  United 
States  Navy.  This  section  of  the  tutorial  is  designed  to 
indoctrinate  a  new  operator  in  the  basic  characteristics  and 
problems  of  the  system. 

A.   INTRODUCTION  DISPLAY 

The  introduction  display  (figure  4-1)  provides  the  user 
with  the  basic  concepts  necessary  to  understand  the  system's 
purpose.  It  prepares  the  user  for  the  general  flow  of  the 
tutorial  and  the  option  areas  that  will  be  available  for 
further  study.  If  an  individual  only  types  "c"  to  proceed  to 
the  next  display,  then  a  basic  overview  of  the  system  and 
its  environmental  problems  will  be  presented.  However,  the 
user  has  the  option  to  branch  into  the  greater  details  of 
many  of  the  problem  areas  and  formulas. 

P.   OVERALL  SYSTEM 

The  second  display  (figure  4-2)  familiarizes  the  user 
with  the  purpose  of  the  system,  provides  a  possible 
configuration  of  arrays,  and  the  target  area  that  is  to  be 
covered.  There  is  no  greater  detail  available  at  this  point, 
so  the  only  options  are  to  continue  or  return.  If  the 
operator  chooses  to  return,  a  new  disolay  will  be  presented 
which   asks   him   '10   YCU  REALLY  WANT  TO  RETURN  TO  THE  MAIN 
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PROGRAM?  (y  /  n)'.  If  he  responds  'y'  the  program  will  shift 
back  to  the  main  program,  but  if  anything  else  is  typed  the 
program  will  return  the  previous  display  to  continue. 

C.   ENVIRONMENTAL  PROBLEMS 

When  the  continue  option  is  taken  a  new  display  (figure 
4-3)  appears  on  the  screen  describing  the  prcblers 
associated  with  the  environment  that  the  system  must  work  in 
to  detect  targets.  It  discusses  the  problem  of  extraneous 
noise  always  present  in  the  ocean,  the  time  delays  in 
receiving  the  signals  due  to  long  distances,  and  the  problem 
of  sound  traveling  at  various  speeds.  All  of  these  problems 
are  touched  on  in  this  one  display,  with  further  explanation 
in  subsequent  displays. 

The  next  set  of  displays  demonstrates  cne  area  wnere  a 
computer  based  embedded  tutorial  is  far  more  proficient  in 
training  than  a  normal  textbook  could  possibly  be.  There  are 
six  displays,  figure  4-4  through  figure  4-9,  which  can  be 
presented  from  this  point  and  then  repeatedly  cycled  through 
in  any  order  desired  by  the  user.  Presently  there  are  only 
six  displays,  but  this  is  only  a  sample  of  an  enbedded 
tutorial,  there  could  be  20  or  30  or  more  displays  open  to 
the  user  to  traverse  in  any  manner  desired.  This  allows  the 
user  to  control  the  order  of  areas  of  learning  corresponding 
to  his  interests  and  curiousity. 

The  first  environmental  problem  that  the  system  must 
overcome  is  the  presence  of  vast  amounts  of  noise  always 
present   in   the   ocean.   In   the   frequency  ranges  that  the 
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surveillance  system  is  concerned  with,  the  principle  source 
of  noise  is  other  ships  in  the  ocean.  Once  the  noise  is 
generated  it  will  travel  great  distances  hut  will  dissipate 
and  thus  be  useless  in  detection.  It  is  very  sirrilar  to 
trying  to  listen  to  a  single  person  in  a  large  noisy  party; 
the  person's  voice  is  di stinguishahle  hut  the  background 
noise  makes  it  rather  difficult  to  clearly  understand  it. 
Figure  4-4  illustrates  how  the  desired  frequency  of  the 
vessel  stands  out  with  the  noise  slightly  lower. 

If  'd'  was  typed  while  in  any  of  the  displays  (figures 
4-3  thru  4-9)  a  presentation  of  the  problem  associated  with 
large  distances  would  appear  on  the  screen.  This  display 
(figure  4-5)  compares  two  possible  arrays  trying  to  detect  a 
target  in  a  specific  area,  where  one  is  1200  miles  and  the 
other  is  520  miles  from  tne  source  of  the  signal.  This 
creates  two  problems.  One  is  due  to  the  large  difference  in 
distances  which  causes  time  delay  problems  (figure  4-6),  and 
the  other  problem  is  due  to  tau  line  separation  ffigure  4-6 
and  4-7).  At  this  point  the  user  can  choose  to  follow  up  on 
either  problem  or  possibly  one  of  the  other  four  options. 

The  tau  lines  display  (figure  4-6)  describes  what  the 
tau  lines  are  and  how  they  are  involved  in  the  system.  Tau 
lines  are  a  time  delay  between  reception  of  the  same  signal 
by  two  different  arrays.  Thus  if  a  signal  is  produced 
anywhere  on  a  line  equidistant  from  both  arrays,  it  will 
reach  the  arrays  at  the  same  time,  this  line  is  the  zero  tau 
line.  Likewise,  any  signal  produced  on  line  3-4  (figure  4-6) 


31 


will  arrive  at  array  A'  500  seconds  prior  to  the  same 
signal  arriving  at  array  "b".  As  line  3-4  demonstrates, 
these  tau  lines  are  hyperbolic  in  shape  and  they  get  more 
bent  as  the  line  moves  closer  to  either  array.  This  bending 
results  in  the  distance  between  any  two  tau  lines  not  being 
constant.  As  the  tau  line  problem  display  (figure  4-7) 
illustrates,  separation  of  lines  near  point  4  is  nearly  225 
miles,  while  they  began  only  50  miles  apart.  Another  problem 
is  that,  over  the  same  distance,  different  tau  lines,  i.e. 
1-2,  only  separate  to  approximately  65  miles.  Thus, 
depending  on  the  position  of  the  area  to  be  covered, 
accuracy  can  diminish  quite  drastically.  From  this  point  in 
the  tutorial,  the  user  can  examine  more  problems,  review 
this  problem,  or  continue  on  to  the  next  general  area. 

If  the  user  decides  to  proceed  with  some  new  problem 
areas,  two  more  have  been  implemented,  time  delay  and  water 
temperature.  The  time  delay  display  (figure  4-8)  again  shows 
the  basic  picture  of  the  surveillance  area,  but  then 
discusses  a  new  problem.  It  explains  that  a  signal  produced 
at  point  'a'  can  arrive  at  two  different  arrays  separated  by 
a  large  time  difference.  This  problem  has  to  be  accounted 
for  by  the  computer. 

The  last  display  in  this  section  of  problems  deals  with 
the  speed  of  sound  in  water  and  how  temperature,  salinity, 
and  depth  effect  the  speed.  The  display  (figure  4-9) 
illustrates  the  variance  of  speed  with  depth.  As  the  depth 
is  increased  the  speed  of  sound  initially  slows   down   until 
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roughly  the  1000  yard  depth  and  then  it  starts  to  increase 
gradually.  As  explained  in  the  write-up  under  the  graph, 
speed  of  sound  also  increases  as  the  temperature  and 
salinity  increase.  Again  the  user  has  the  opportunity  to 
continue  reviewing  any  of  these  problem  areas,  continuing 
the  tutorial,  or  returning  to  the  rrain  program. 

B.   SYSTEM  BREAKDOWN 

Continuing  the  tutorial  presents  the  user  with  an 
estimate  of  the  area  this  system  covers.  The  display  (figure 
4-10)  illustrates  that  the  coverage  is  about  the  size  of  the 
state  of  Montana,  for  an  arbitrary  operating  distance  in 
this  example  in  excess  of  1500  miles.  This  display  also 
shows  that  the  area  can  be  broken  down  into  smaller,  more 
manageable  regions  of  about  40  miles  square.  Thus  there  are 
100  regions  in  this  surveillance  area  and  they  can  be 
covered  by  XXX  correlations  per  hour.  The  XXX  was  purposely 
displayed  to  show  where  the  vast  abilities  of  the  computer 
could  be  shown. 
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BASIC  TUTORIAL  INTRODUCTION 


This  embedded  tutorial  is  designed  to  provide  the 
novice  user  with  an  introduction  to  the  ASV  surveillance 
system.  The  system  is  designed  to  detect  vessels  at 
extreme  distances,  in  excess  of  1000  miles,  in  order  to 
protect  our  coast  and  shipping  lanes  from  enemy  submarines 
and  other  ships. 

Many  of  the  following  displays  exhibit  the  fundamental 
concepts  of  the  system  and  then  allow  the  user  to  delve 
into  the  details  when  desired.  Observe  the  menu  at  the  top 
of  each  display  to  see  what  options  are  available  at  any 
given  time. 


type  c  to  continue 


FIGUHE  4-1 


EASIC  TUTORIAL  INTRODUCTION 


7  4. 


type  ==>  Continue,  P.eturn 


(GREEN) 


(LAND) 


C=3  3 


The  surveillance  system  is  designed  to  detect   signals 
produced  by  targets  and  then  determine  the  position  of  the 
targets.  Assuming  there  was  an  area  (greer   square^  in  the 
ocean  to  be  watched  for  submarines,   the   two  arrays  of 
hydrophones  (1  and  2)  and  a  method  to  analyze  their  outputs 
would  be  necessary.   Tor  better  results  additional  arrays 
such  as  3  could  be  added. 


FIGURE  4-2 


OVERALL  SYS  TFT  VIEW 


type==>  Continue,  Distance,  Time,  Va ter ( temp)  ,  Noise,  ^eturn 


(LAND) 


'The  above  menu   lists  many  of  the  problems  associated  with 
the  syster  due  to  its  environment: 

1)  Tistances  are  quite  larse,  on  the  order  of  15?!?  miles 
in  this  example. 

2)  Time  delays  caused  by  differences  in  the  time  of  arrival 
of  the  signal  at  two  different  arrays. 

3)  Water  temperature   and   salinity   variations  affect  the 
speed  of  sound. 

4)  Noise  created  by  other  vessels  distorts  the  reception  of 
the  desired  signal. 


FIGURE  4-3 


FNVIPONMENTAL    PPOBLF^S 
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type  ==>  Continue,  Distance,  Time,  Water(temp),  Peturn 


VOLTAGE 
(volts) 


'IME 


The  detection  of  a  specific  signal  is  adversely  affected 
by  additional  noise.  This  detection  can  he  compared  to 
trying  to  listen  to  a  specific  person  at  a  large  noisy 
party.  The  majority  of  signals  detected  in  the  range  of 
10Hz  to  400Hz  are  generated  by  other  vessels.  However, 
greater  distances  cause  these  signals  to  "be  weaker  and 
untraceable. 


FIGURE  4-4 


NOISE  PR0EL2TS 
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type=>Cont inue.    Time,   Water(temp),   Lines(tau),    Noise,   Return 


(LAND) 


This  system  is  required  to  detect  targets  at  very  large 
distances.  These  distances  range  from  relatively  few  miles 
to  in  excess  of  1500  miles  in  this  example.  The  long  ranges 
cause  problems  of  diffusion  and  larre  separations  in  the 
tau  lines.  When  the  detection  of  a  signal  is  accomplished 
by  two  arrays  that  are  at  different  distances  from  the 
source  of  the  signal,  a  time  delay  must  he  computed  in 
order  to  pinpoint  the  position  of  the  source. 


FIGURE  4-F 


DISTANCE  PEOBLEM 
38 


type=>Continue,  Noise,  Time,  Water (temp ) ,  Line'proh),  Return 

4 

"A 
3  *  500  TAU  LINE 

1*0  TAU  LINE 

.B 

L 

Tau   lines  are  measurement  lines  distinguishing  the  time 
arrival  cf  the  signal  at  two  different  arrays.  If  arrays  A 
and  "3  are   1000   miles  apart  then  a  signal  orcduced  midway 
"between  A  and  B  (point  1)  would  arrive  at  both   arrays   at 
exactly  the  same  time.  Additionally  any  signal  produced  on 
line  1-2  would  arrive  at  both  arrays  simultaneously.  In  the 
same  manner,   signals   produced  on  line  2-4  arrive  at  the 
arrays  with  the  same  amount  of  time  delay  in  all  cases. 

FIGURE  4-6 
TAU  LINES 
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type==>  Continue,  Noise,  Tire,  ^Distance,  Water(temp),  Peturn 


225  MILES 


x  A 


65  MILES 


..B 


Since  the  tan  lines   are  hyperbolic  in   shape,   another 
problem  arises  in  that   the  spacing  between  any  two  lines 
does  not  remain  constant.  The  lines  at  points  1  and  3  are 
spaced  50  miles  apart.  The  lines  1-2  separate  to  65  miles 
by  the  time  they  reach  point  2,  whereas  lines  3-4  spread 
to  225  miles  by  the  time  they  reach  point  4.  This  variance 
can  cause  drastic  differences  in  the  accuracy  of  the  signal 
received,  depending  on  the  position  relative  to  the  arrays. 


FIGURE  4-7 


TAU  LINE  PROBLEMS 
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tyoe  ==>  Continue,  Noise,  Distance,  Vater(temp^,  Return 


(LAND) 


Since   sound   travels  at  298?  Kts.   (3400  riles/hour), 
a  signal  could  "be  considered  to  travel  at  one  rrile 
per  second.  At  this  speed  it  would  take  a  signal  1500 
sec.  or  25  minutes  to  travel  frorr  point  A  to  array  ?.  "But 
it  would  only  take  £  minutes  for  it  to  travel  tc  array  3, 
thus  arriving  17  rirutes  before  it  would  arrive  at  array  2 
This  difference  must  he  accounted  for  "by   the   algorithms 
in  the  computer. 


FIGURE  4-8 


TIME-DELAY  PROBLEMS 
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type  ==>  Continue,  Noise,  Distance,  Time,  Return 


VELOCITY 
(yards/sec) 
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DEPTH    3  000 
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The  velocity  of  sound  varies  as  a  function  of  the  water 
temperature,  salinity,  and  depth.   In  the   first  21?   yards 
from  the  surface,  velocity  is  mainly  affected  by  tempera- 
ture and  salinity,  after  which  depth  (pressure)  is  the  main 
factor.  As  temperature  and  salinity  rise,  the  velocity   of 
sound  increases.   As  the  pressure  increases  due  to  the 
depth,  the  velocity   of   sound  also  increases.   These 
variances  are  not  severe  but  when  the  measurements   are 
in  tenths  of  a  second,  any  change  will  cause  inaccuracies. 


FISURE  4-9 


WATER  TEMPERATURE  PR0PL2MS 
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type   ==>   Continue,    Return 

\ 

■ 

D/ 

■l 

l       (LAND) 

1  — 

3                                                       </  2           \ 

When   arrays    are   positioned,    as    in    the   above  display,    it 
allows    the   system   to      cover    a    larse     area      of      ocean.      In 
this    example  an    area    400  miles    "by  400  miles    or   roughly   the 
size    of   Montana.    This    area    can    he    further      subdivided      into 
100   sectors,    each   40   niles    square   to   make    the   tracking 
easier.    Each   of   these      sectors    can    presently    be    covered   by 
XXI   correlations   per   nour. 

FIGURE    4-1 


UREA   BREAKDOWN 
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E.   HYDROPHONES 

The  next  portion  of  the  tutorial  provides  an  explanation 
of  the  hydrophone,  the  arrays,  and  steering  the  arrays 
toward  the  area  of  surveillance.  Figures  4-11  through  4-1? 
illustrate  the  basic  principles  of  correlation  and  the 
characteristics  of  the  Hydrophone  arrays.  As  fis-ure  4-11 
exhibits,  the  area  covered  by  a  single  beam  increases  with 
distance  from  the  array  and  accuracy  decreases 
proportionately. 

The  hydrophone  array  is  a  long  tube,  about  the  size  of  a 
large  fire  hose  in  circumference  and  roughly  2,000  feet 
long,  containing  approximately  60  hydrophones.  Each 
hydrophone  works  in  the  same  manner  as  a  sound  speaker  in 
reverse,  it  receives  the  waves  of  sound  and  converts  them 
into  electrical  signals.  Figure  4-12  illustrates  the  rough 
shape  of  a  beam  formed  by  the  hydrophone  array.  This  shape 
varies  in  width  and  length  with  frequency,  a  hi^h  frequency 
beam,  for  example,  being  snort  and  narrow. 

As  figure  4-12  illustrates  that  the  beam  is  directed 
straight  out  perpendicular  to  the  array  when  no  corrections 
are  made  to  it.  However,  it  can  be  directed  as  figure  4-12 
illustrates.  The  shifting  of  the  direction  is  accomplished 
by  delaying  the  signal  received  by  some  of  the  hydrophones 
longer  than  others.  Since  there  are  about  60  hydrophones, 
there  can  be  about  60  possible  combinations  producing 
roughly  60  beams  to  cover  the  area. 
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Correlation  is  the  process  of  determining  the  relationship 
of  signals  received  at  two  different  points.  Arrays  2  and  3 
receive  signals  continuously,  process   therr  by  tirre-delay 
techniques,  and  analyze  the  r°sults  to  determine  the  degree 
of  correlation.  When  the  correlation  level  is  significantly 
high,   then  a  rossible   contact   is   recorded.  A  series  of 
contacts   establishes  a  track  with  various  possible  levels 
of  certainty. 


FIGURE  4-11 
CORRELATION 
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type  ==>  Continue,  Array  (pointing),  Ellipses,  Return 
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HYDROPHONE  ARRAY 


The  system  for  collecting  signals  is  an  array  of 
hydrophones,  roughly  2000  feet  long  containing  60  nassive 
sonar  devices.  If  no  adjusting  (pointing)  of  the  array  is 
done,  then  only  noise  waves  coming  in  directly  abeam  of 
the  array  will  he  detected.  The  noise  arrives  at  the  array 
in  the  sane  manner  that  a  wave  crashes  on  the  beach,  some 
co^e  in  straight  a^d  others  hit  at  an  angle. 


FIGURE  4-12 


HYDROPHONES 
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type  ==>  Continue,  Hydrophones,  Fllipses,  Return 


HYDROPHONE  ARRAY 


In  order  to  cover  a  large  area  with  a  single  pair  of 
arrays,  the  beams  must  "be  able  to  be  pointed  in  several 
directions.  This  is  accomplished  by  using  a  tine  shift  in 
the  receiving  of  a  signal  at  various  hydrophones  along  the 
array.  There  can  be  roughly  as  many  beam  patterns  as  there 
are  hydrophones  and  the  beam  patterns  are  generally 
overlapped  to  ensure  that  the  entire  area  is  covered. 


FIGURE  4-13 


ARRAY  POINTING 
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F.   ELLIPSES 

When  contact  is  made  "by  an  array,  the  area  of  probable 
contact  is  a  very  long  narrow  ellipse  centered  along  a  tau 
line.  When  two  different  arrays  detect  a  signal  then  the 
ellipse  is  centered  at  the  intersection  of  the  tau  lines, 
and  its  shape  is  dependent  on  their  angle  of  intersection. 
As  the  display  (figure  4-14)  shews,  when  the  angle  of 
intersection  of  the  tau  lines  is  nearly  perpendicular,  the 
ellipse  approaches  a  circle  and  therefore  there  is  a  ruch 
smaller  area  of  probable  contact.  As  the  tau  lines  become 
more  parallel  the  ellipse  becomes  longer  and  the  probable 
contact  area  increases.  When  more  data  1s  accumulated  on  the 

signal,  additional  ellipses  can  be  drawn  as  the  disolay 
(figure  4-15)  demonstrates.  The  additional  ellipses  are 
nearly  totally  confined  within  the  previous  ellipses,  thus 
reducing  the  probable  contact  area  even  further.  If  the  data 
received  alternates  between  different  sets  of  arrays,  as  the 
first  three  ellipses  illustrate,  then  the  area  of  probable 
contact  shrinks  rapidly.  If  the  data  comes  from  the  same  set 
of  arrays  then  the  ellipse  becomes  longer  and  narrower  and 
eventually  exceeds  prior  ellipses  in  total  area. 

The  display  (figure  4-15)  demonstrates  how  graphics  can 
animate  displays  to  make  them  appear  as  if  they  were  being 
drawn  by  an  instructor.  When  the  original  display  is 
presented,  only  the  two  outermost  ellipses  are  drawn  in  the 
middle  section.  Then  as  the  user  finishes  reading  the 
explanation  of  combining   ellipses   he   has   the   option   of 
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seeing  more  ellipses  combined  by  typing  'm '  cr  continuing 
the  tutorial  by  typing  'c'.  If  more  ellipses  are  desired 
they  will  be  drawn  one  at  a  tirre  with  a  two  second  delay 
between  them.  Another  feature  of  this  display  is  that  it  can 
be  reached  by  two  different  routes.  First  it  will  be 
displayed  when  the  user  requests  more  detail  in  earlier 
displays  (figures  4-11  and  4-14)  or  by  following  the  basic 
simplified  route.  Whichever  route  is  followed  this  display 
will  occur  at  least  once. 

G.   ENTIRE  SYSTEM 

Now  that  the  user  has  seen  what  the  system  is  trying  to 
accomplish,  a  simplified  view  of  the  complexity  of  the 
system  is  displayed  (figure  4-16).  This  display  and  its 
detailed  subsystems  prepare  the  individual  for  the  actual 
use  of  the  system. 

If  the  user  decides  to  probe  into  the  inner  workings  of 
the  system,  he  has  the  opportunity  at  this  point  to  see  the 
basic  technique  and  some  of  the  formulas  used  in  solving  the 
correlation.  The  first  display  (figure  4-1?)  describes  the 
use  of  coherent  versus  incoherent  calculations.  This  display 
demonstrates  that  straight  text  can  be  inserted  into  the 
tutorial:  however  this  is  not  a  very  cost  effective 
utilization  of  the  computer.  The  second  display  (figure 
4-18)  illustrates  the  formulas  that  are  used  in  computing 
the  correlation.  This  display  demonstrates  that  formulas, 
though  difficult  to  display,  can  be  presented  in  a  clear  and 
complete  manner.  Again  this  is  not  an   efficient  method   of 
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communicating  this  information,  but  it  does  demonstrate  that 
it  can  be  done. 

Sore  of  the  variables  used  in  the  calculations  can  be 
varied  by  the  tracker  to  obtain  a  better  picture  of  the 
actual  situation.  This  display  (figure  4-19)  provides  the 
user  with  just  a  few  of  the  possible  variables  and  their 
upper  and  lower  limits.  If  during  the  scenario  or  actual 
system  utilization,  the  tracker  attempts  to  exceed  these 
limits  the  computer  will  not  allow  him  to  input  the  changes. 
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type==>  Continue,  Fllipses  (combined),  Hydrophones,  Return 


DIAGRAM  A 


DIAGRAM  B 


When  a  correlation   is   made   from  data  received  at  two 
arrays,  an  area  of  probable  contact  is  established. 
The  area  of  probable  contact  forms  an  ellipse, 
as  in  diagrams   A  and  B,   When  the  tau  lines  are   nearly 
perpendicular,  the  ellipse  anproximates  a  circle   which 
indicates  a  high  probability  of  contact  within  a  small  geo- 
graphic area.  However,  if  the  tau  lines  intersect  at  relat- 
ively small  angles,  the  result  is  a  very  long  ellipse, 
indicating  a  lower  probability  of  contact  within  the  area. 


"FIGURE  4-14 
ELLIPSES 
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type  ==>  Continue,  Ellipses,  Hydrophones,  Return 


Area  around  A  is  now  the  probable  contact  area. 


When  several  pieces  of  data  are  e-athered  about  a  specific 
signal,  then  the  ellipses  can  be  combined  to  reduce 
the  area  of  probable  contact.  As  the  diagram  illustrates, 
the  second  set  of  data  for^s  an  ellinse  which  is  inside  the 
first   ellipse.   Additional   data  can  be  used  to  establish 
additional  ellipses  and  eventually  improve  the  detection 
of  targets. 

Type  'm'  to  see  how  additional  ellipses  are  combined. 


FIGURE  4-15 


COMBINED  ELLIPSES 
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ype==>  Continue,  Techniques  ( correla ti on ) ,  Filters,  Return 
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A   "brief   overview  of  the  entire  system  demonstrates  the 
amount  of  complex  machinery  required  *o    accomplish   this 
surveillance.   Signals  are   rec°ived  at  the  arrays  a^d  are 
transmitted  to  the  case  station,  then  sent  via  satalite  to 
the  Support   Center  (SC).    In  the   SC   the  data  is   sent 
through  filters   and   a  correlator,   where  the  computer 
establishes  two  sets   of  data  (peak  data  files  and  surface 
plots).  The  peak  data  ard  surface  plots  are  reviewed  by 
the  operators  to  determine  any  possible  target  tracks. 


FIGURE  4-16 
ENTIRE  SYSTIT 
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type  ==>  Continue,  Rules  (formulas),  Filters,  Return 


STATEMENT  C?  THE  TTCH^JISUE 
Given   two  sequences  of  time  series 
data,  a  function  represents   the  decree 
of  match   of   the  two  tire  series  as  e 
function  of  adjustment  of  the  delay   and 
of   adjustment   of   the  relative  Doppler 
ratio  "between  the  two  series.   The   term 
"coherent",   applied  to  this  function, 
implies   that   the   relative    phase 
evolutions   of   the  time  series  are  used 
ir   determining  the  decree  of  match, 
rather   than   discarded  as  in  an  incoherent 
calculation.  The  time   series  of  interest 
are  finite,  discrete,  frequency-shifted, 
band-limited,  comple?   time  series 
obtained  from  passive   sonar   sensors 
(hydrophone  arrays). 


FIGURE  4-17 
CORRELATION  TECHNIQUE 
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type  ==>>  Continue,  Filters,  Return 


1)  Jx(a,t)|    =  -£-|£g   XX    (n).X2    (n-t/AT) 

2)  x[(n)=X1(an-(a-l)N/2) 


2TTi(aFl-F2-n  T 

e 


N-l    i  *        N-l 


3)    A2=]gxi(n)«X1(n)^X2(m-t/   T)X2(m-t/   T) 

where     X(a,t)    is   the  modulus   correlation  coefficient 
a  is   the   relative  doppler  ratio   compensation 
t   is   the  delay  compensation 
A  is   the  normalization  constant 

X]_  and  X2  are   time  series   sampled  at   time   intervals     T 
Fl  and  F2  are   the   center  frequency  of   the  passband   for   the 
time   series 


The   "basic    correlation    structure    can   "be    seen    in   equation    1, 
as    the   rodulus      of      normalized,      surr      of    products    of      the 
tire   series    samples    (with   one   series    conjugated).    The    other 
two   equations   are  used    for   delay   and   Toppler    compensation 
of   the    time    series   prior    to   correlation. 


FIGURE    4-16 
CORRELATION    FORMULAS 
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type  ==>  Continue.  Return 


LONGITUDE 

LATITUDE 
COHERENCE  LIMITS 
TRACK  NUMBER 
PUN  NUMBER 

REGION'  NUMBER 


PANC-ES 
?0. 00-50. 00 
150.00-130.00 
0.0-2.0 

1-10 

1-7 

1-25 


Listed   above   are   a  few  of  the   oaraneters  that   can 
"be  adjusted,  to  get   a   better   track  of  a  vessel.  Other 
parameters  are  demonstrated  throughout  the  tutorial  and  if 
the  limits  are  exceeded,  the  computer  will  adjust  and 
notify  the  ODerator. 


FIGURE  4-19 


PARAMETER  VARIABLES 


V.  TATA  DISPLAY  TUTORIAL 


This  section  of  the  tutorial  is  designed  to  preoare  a 
tracker  for  the  types  of  data  that  will  be  presented 
during  operational  conditions.  It  provides  some 
representative   samples   of   data   in   order   tc   explain 

explicit  details  about  the  values  in  certain  categories.  A 
review  of  this  part  of  the  tutorial  would  be  advisable  for 
all  trackers  as  a  routine  before  each  watch  they  stand 
because  it  provides  many  of  the  basics  of  each  data 
representation.  Such  a  review  would  ensure  that  the 
operator  will  not  totally  forget  characteristics  of  the 
system  during  periods  of  disuse. 

This  section  of  the  tutorial  begins  with  an 
introductory  display  (figure  5-1)  which  presents  the  basic 
concepts  of  this  section  and  then  describes  the  importance 
of  a  thorough  understanding  of  each  data  display.  None  of 
the  data  displays  can  be  overlooked  by  a  tracker  since  the 
data  is  interconnected  in  such  a  manner  that  the  accuracy 
of  one  forms  a  check  on  another.  For  example,  the  values 
of  the  position-data  display  (figure  5-2)  are  checked  for 
variance  by  the  values  of  the  covariance  matricies  in 
figure  5-7.  This  interconnection  is  useful  in  obtaining  a 
good  overall  picture  of  the  situation  but  still  allows  the 
user  the  freedom  to  transverse  the  data  displays  in  avy 
desired  order. 


DATA  TUTORIAL  INTRODUCTION 


This  section  of  the  tutorial  deals  with  the  types  of 
data  that  will  he  displayed  when  a  tracker  is  utilizing 
the  actual  operational  systerr.  The  displays  give 
representative  sarples  of  data  and  then  explain  the 
characteristics  and  point  out  key  points.  This  section  of 
the  tutorial  is  hrief  hut  extremely  important  to  the 
understanding  of  the  onerator's  job.  A  quick  review  of 
this  tutorial  would  be  beneficial  to  the  experienced 
operator  before  starting  each  session  on  the  operational 
system. 


type  c  to  continue 


FIGURE  5-1 
TATA  TUTORIAL  INTRODUCTION 
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The  positional  data  display  (figure  5-2)  provides  the 
tracker  with  basic  inf ormation  about  the  vessel's  probable 
position,  course,  and  speed.  The  latitude  and  longitude 
will  not  vary  much  whether  the  signals  are  from  a  target 
or  noise?  however,  they  can  be  used  to  determine  a  good 
starting  point  for  setting  the  parameters  for  a  surface 
plot.  The  courses  and  speeds  will  vary  depending  on  the 
type  of  signal  that  is  being  received  and  thus  should  be 
closely  examined.  For  an  experienced  operator,  the 
covariance  matrix  display  (figure  5-7)  can  be  quite  useful 
in  determining  the  validity  of  a  suspected  track. 

The  peak  data  display  (figure  5-3)  provides  the 
operator  with  seme  rather  difficult  numbers  to  comprehend. 
The  STM/Btf  numbers  are  the  numerical  representation  of  the 
array  and  the  direction  of  the  beam.  It  is  important  to 
recognize  when  a  different  array  is  receiving  the  signal 
because  this  can  increase  the  accuracy  of  t riangulaticn . 
The  tau  values  are  important  because  they  will  vary  in  the 
same  manner  as  the  courses  and  speeds;  however,  this 
variance  can  only  be  detected  when  using  the  same  pair  of 
arrays.  A  large  jump  in  tau  values,  as  in  figure  5-2,  is 
another  indication  that  two  different  pains  of  arrays  are 
detecting  the  same  signal,  but  the  variance  in  values  from 
a  single  pair  of  arrays  is  quite  good.  The  doppler  values 
will  also  vary  and  should  be  watched  closely  when  tracking 
a  sunface  vessel. 
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tyoe  ==>  Continue,  Return 


RUN  NUMBER  6   REGION'  NUMBER  6 


'HACK  NU^RER  9 


Water  Tirre  Peal*  Position  Coordinates   Courses  and  Speeds 

23-Eeb-S0   Number   Latitude   Longitude    Course     Speed 


14 

:5B 

:03 

0 

39.5000 

147.5000 

0.0 

0.00 

14: 

:58 

:03 

3427 

39.4711 

147.4707 

142.0 

5.39 

15 

:04 

:23 

3533 

39.4652 

147.4552 

1 54 . 7 

5.52 

15 

!l4 

:30 

3449 

39.4212 

147.4189 

153.9 

5.96 

15' 

:33: 

35 

3540 

39.3582 

147.4417 

160.3 

6.09 

15 

:4£ 

:44 

3452 

39.396  0 

147.4815 

161.6 

5.59 

This  data  illustrates  the  estimated  position,  course  and 
speed   of  a  possible  target.   When  the  data  is   relatively 
constant,  as  in  the  above  display,  it  is   probable   that 
the   signals   were  generated   by   a   vessel.   If   the 
courses  were  159.0,  135.6,  160.4,  122.7,  150.3  then  the 
data  would  orobablv  be  due  to  extraneous  noise. 


FIGURE  5-2 


POSITION-DATA 
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tyoe  ==>  Continue,  Return 


PUN  NUMBER  6    REGION  NUMBER  6    TRACK  NUMBER.  9 


Peak   -Ref   Station- 
Number   STM/BM    Ereq 


-PPD  Station- 
STM/BM   Freq 


Peek  Data 

TAU     DOPPLER 


0 

0 

0.00 

0 

0 

.00 

0.0 

.0000 

342? 

1323324 

41.40 

1322329 

41 

.43 

-416.7 

-.0003 

2533 

1322031 

41.40 

2411020 

41 

.40 

27.3 

.0000 

3449 

1323024 

41.40 

1322030 

41 

.40 

-412. 8 

-.0000 

3540 

1322031 

41.40 

2411321 

41 

.43 

19.2 

.000  3 

3453 

1323025 

41.40 

1322030 

41 

.40 

-420. n 

-.0000 

This  data  display  pnesents   the  peak  numbers,  the  array 
that   received   the  signals,   the   freauency   of   the 
signal,  and  peak  data.  The  variances  in  the  Tau  and  loppler 
values  can  give  evidence  as  to  the  validity  of  the   track. 
^he  variance  in  the  Tau  values  from  -416.7  to  27.3  to 
-412.8  etc.  means  that  the  ellipses  will  orobably  combine 
very  well  because   the  data  is  being  collected  from  two 
different  sets  of  arrays. 


FIGURE  5-3 


PEAS-EATA 
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The  accuracy  data  display  (figure  5-4)  is  a  good 
indication  of  track  validity  "because  the  Chi-Square 
probability  scores  descrioe  the  consistency  of  the 
received  data.  The  more  data  received  about  a  certain 
track,  the  "better  the  exact  location  can  be  determined. 
The  cumulative  Chi-Square  score  is  an  excellent  quick 
reference  because  the  score  is  constantly  normalized  to 
present  a  true  indication  of  the  probability.  It  does  not 
matter  how  many  scores  are  obtained  because  they  are  all 
averaged.  The  cumulative  score  will  approach  one  (1.2)  if 
the  signals  being  received  are  from  a  target. 

The  surface  plots  (figures  5-5  and  5-6)  represents  the 
signals  received  in  another  fashion.  They  are  compiled  by 
taking  all  of  the  data  received  by  array  pairs  and  then 
filtering  the  data  through  a  coherence  filter  that  removes 
all  signal  data  below  the  level  set.  Then  the  data  is 
displayed  for  the  region  that  the  tracker  has  set  for 
surveillance.  Both  the  coherence  limit  and  the  regional 
area  are  set  by  the  operator  in  the  attempt  to  locate  a 
target . 

The  last  display  in  this  section  of  the  tutorial  is 
the  covariance  matrix  display  (figure  5-7)  which 
illustrates  the  complexity  of  the  system  as  it  presently 
stands.  It  takes  either  a  mathematician  or  a  very 
experienced  tracker  to  evaluate  the  matrices  displayed. 
For  this  reason  an  algorithm  is  being  developed  by  a  Navy 
contractor  to  simplify  this  data.  However,  at   this   time, 
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it  is  still  important  to  the  evaluation  of  the  previous 
data,  and  is  being  displayed  in  this  fashion  until  the  new 
algorithm  is  completed. 
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type  ==>  Continue,  Return 


RUN  NUMBER  6    REGION  NUMPER  6    TRACK  NUMPER  9 


Peak    Prob      — CHI  Square  Scores —      Meas  Fesiduals 
umber   Score    Stagewise   Cumulative     Beltat   Deltaf 


0  0.00  0.0000  0.0000  0.0000  0.0000 

342?  -1.83  0.3171  0.3171  1.7978  -0.3405 

3533  -4.89  0.0162  0.166?  0.6344  0.0193 

3449  -3.99  0.4410  0.2581  3.3146  -0.0036 

3540  -4.66  1.4396  3.2460  -7.4522  0.0114 

3453  -4. PI  2.0796  0.8527  -8.3141  0.0043 

3421  -4.31  1.8945  0.8892  -6.4137  0.0125 


This  lata  shows  the  same  peaks,  their  Chi  Square 
probabilities  of  actual  position,  and  their  measured 
residuals.  The  Chi  Square  scores  are  broken  into  two 
groups,  individual  scores  and  the  cumulative  total.  The 
cumulative  score  is  a  <?ood  check  as  to  the  probability  of 
an  actual  contact,  scores  near  1.0  are  quite  good. 


FIGURE  5-4 
ACCURACY-DATA 
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typ°  ==>  Continue,  Samples,  Return 


REGION  NUMBER   8 


COHERENCE  LIMIT   1.0 


J        u 
0 

<© 

0    ° 

o  c 

0 

'    0 

°  $ 

o 

o 

•  « 

°0 

0   c 
r?. 

Ey  examining  a  surface  plot  the  operator  rnay  be  able  to 
recognize  a   pattern   of  peaks   that   would   establish  a 
target's  track.  Care  must  be  taken  when  viewing  the  surface 
plots  because   the   size  of  the   area   (range  of  latitude 
and  longitude)  can  be  varied,  thus  giving  the  appearance 
of  a  track  when  there  might  not  be  one. 


FIGURE  5-5 


SURFACE-PLOT 
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type  ==>  Continue,  Samples,  Return 


REGION  NUMBER    5 


COHERENCE  LIMIT   1.0 


1 


W7 


of 


0 


iJflr'-    6 


This  surface  plot  shows  a  very  orobable  track,  indicated 
by  the  arrow,  because  the  size  of  the  plot  is  relatively 
srrall  (63  Tiles  square)  and  the  coherence  lirnit  is 
relatively  high  (  1.0  ),  this  is  probably  a  track  of  a 
target  and  should  be  further  investigated. 


FIGURE  5-6 


SAMPLE    SURFACE-PLOT 
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type  ==>  Senerios,  Tutorial  (again),  Return 


PUN  NUMBER  6   REGION  NUMBER  6    TRACK  h'UKBFR  9 


Peak      COVARIANCE  MATRIX 

Number 

3427        0. 03136  0.00000  -0.03150  0.00000 

0.00000  37.88962  0.0(7000  -48.49765 

-0.03150  3.33303  3.37311  0.00000 

0.00000  -48.49765  0.00000  62.21477 

3533        0.00985  0.00347  0.00551  -0.00001 

3.30047  3.31137  0.03178  3.19371 

0.00551  0.00178  0.00944  -0.00179 

-0.00001  0.19371  -0.00179  0.13686 


This  display  illustrates  the  covariance  rratrices  which  car. 
be  used  to  determine  the  accuracy  of  the  estimated  courses 
and  speeds.  An  experienced  operator  could  determine  this  by 
examining  each  4  X  4  matrix.  However,  this  is  difficult  and 
time  consuming.  Efforts  are  being  made  to  have  this  handled 
by  the  computer. 


FIGURE  5-7 
COVARIANCE  MATRICES 
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VI  .  SCENARIO 

A.   PUPPOSE 

The  scenario  is  an  important  part  of  the  learning 
experience  offered  in  this  tutorial  because  it  offers  the 
user  the  opportunity  to  practice  the  skills  that  have  "been 
taught.  Parameters  can  he  inserted  and  the  data  displayed 
as  it  would  actually  he  shown  on  the  tactical  system  and 
also  adviop  could  he  given  as  to  the  quality  of  the  data. 
This  actual  hands-on  training  has  many  benefits  over 
conventional  methods.  It  reduces  the  anxiety  of  the  user 
when  finally  confronted  with  a  tactical  mission,  gives  him 
key  ooints  that  can  be  expanded  in  future  lessons, 
refresher  training  at  his  work  place,  and  a  wide  variety 
of  options  to  try  on  tactical  data  outside  a  mission. 

A  great  deal  of  anxiety  and  frustration  generally  is 
experienced  by  the  individual  when  he  starts  a  new 
endeavor.  Any  reduction  of  this  anxiety  would  be 
beneficial  to  the  performance  of  the  individual  and  thus 
improve  his  value  as  an  operator.  With  an  embedded 
tutorial  an  individual  can  learn  the  workings  of  the 
system  and  the  procedures  of  the  task  while  becoming 
familiar  with  the  computer  operations.  This  scenanio  is 
designed  to  give  the  user  several  different  looks  at  the 
kind  of  data  and  displays  that  he  will  be  working  with 
every  day.  A.  tutorial  on  the  actual  system  would   be   far 
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"better  than  the  mock-up  used  in  this  study  because  the 
using  of  actual  data  would  enable  the  user  to  see  many 
more  combinations  of  parameters.  This  tutorial  would  be 
altered  to  analyze  the  parameters  more  carefully  to 
establish  what  comments  would  be  appropriate  for  the  data 
that  is  displayed. 

The  scenario  presently  has  only  four  sets  of  data  and 
explanations  have  been  limited  by  the  data  available  and 
the  size  of  the  computer.  Since  the  tactical  system 
receives  the  data  directly  from  its  storage  bank,  both  of 
these  limitations  are  removed.  The  tutorial  program  would 
only  have  to  receive  tne  data,  analyze  it,  and  make 
appropriate  comments.  These  comments,  as  in  the  sample 
scenario,  would  describe  to  the  user  the  areas  to  watch  in 
order  to  get  the  best  track,  and  also  it  would  help  in 
making  parameter  settings  for  optimum  surveillance.  These 
key  points  would  be  beneficial  to  both  the  new  user  and  as 
a  refresher  for  the  the  experienced  operator. 

Since  the  scenario  is  embedded  in  the  actual  tracking 
system,  it  is  easy  to  have  the  operators  run  refresher 
training  on  tactical  data  outside  an  actual  mission, 
without  sending  them  out  of  the  facility.  This  training 
could  increase  the  capabilities  of  an  experienced  operator 
because  it  would  serve  as  a  reminder  of  some  option  areas 
that  might  not  normally  be  utilized  either  because  they 
are  unfamiliar  or  because  they  were  not  very  effective  on 
the  data  that  has  been  previously  tried.   Since   each  new 
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track  is  unique  in  its  oroperties,  an  operator  must  be 
very  flexible  in  his  attempt  to  distinguish  a  track  of  a 
target  from  noise. 

As  the  data  is  tactical  but  rot  part  of  a  current 
operation  during  a  senario,  it  is  an  excellent  time  for  an 
experienced  operator  to  try  various  combinations  of 
parameters  in  the  attempt  tc  track  a  target  more 
accurately,  An  operator  would  not  have  this  option  during 
operation  due  to  the  necessity  of  constant  surveillance  of 
the  area. 

B.   PHOGRAM  SETUP 

The  scenario  program  is  written  to  allow  the  expansion 
of  this  small  sample  scenario  with  little  modification. 
The  program  takes  the  input  of  the  user  and  then  displays 
the  data  formatted  in  the  manner  that  the  user  desires.  As 
this  demonstration  program  is  limited  in  data  available, 
only  four  possible  sets  of  displays  ca^  be  shown,  each 
dependent  on  the  parameters  inserted  by  the  user.  The 
possibilities  of  disrlays  range  from  excellent  parameters 
to  worst-case  parameters  with  two  fair  sets  cf  data 
displays  in  the  middle.  In  each  set  of  displays  the  user 
can  see  peak  data,  location  data,  accuracy  data,  and 
surface  plots  of  the  region.  The  user  is  also  ^iven  the 
opportunity  to  display  the  parameters  that  are  presently 
being  used  and  given  an  opportunity  to  alter  any  cr  all  of 
them,  "^ifure  6-1  shows  the  format  of  the  parameters  that 
can  be  altered  by  the  user  to  improve  surveillance  of  an 
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area.  The  present  values  shown  in  the  figure  are  the 
parameters  that  the  system  initialize!  when  the  scenario 
was  entered.  These  parameters  will  give  the  best-case  set 
of  displays  and  explanations,  hut  they  can  he  altered  to 
demonstrate  the  effect  of  poor  parameters  or  to  highlight 
specific  parts  of  certain  data  displays.  As  was  mentioned 
earilier  there  are  no  set  limits  or  firm  paraTeters  that 
will  give  the  best-case  display  of  data  in  all  situations. 

G.   DISPLAY  EXPLANATION 

There  are  four  sets  of  displays:  1)  best-case 
parameter  setting,  2)  data  accumulated  over  too  large  an 
area,  3)  data  accumulated  with  too  low  a  coherence  limit, 
and  4)  worst-case  data  which  was  accumulated  ever  too 
large  an  area  at  too  low  a  coherence  limit.  These  displays 
will  be  grouped  by  display  category  to  demonstrate  the 
pitfalls  in  each  type  of  display  for  certain  choices  of 
parameters  . 

1 .   Positional-Tata 

The  positional  data  is  probably  the  best  source  of 
information  that  the  operator  can  obtain  about  a  possible 
target  because  it  provides  a  smaller  area  to  search  and  a 
good  indication  of  the  probability  of  a  target. 
Furthermore  it  is  the  easiest  set  of  data  to  understand 
because  it  is  given  in  terms  that  most  people  can  easily 
grasp,  position  with  a  course  and  a  speed.  Some  of  the 
other  displays  present  tau  lines,  doppler,  and  cumulative 
Chi-Scuere  values.  The  positional  data   displays   (figures 
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6-2  to  6-5)  present  the  peak  numbers,  calculated  position, 
course,  and  speed  of  a  suspected  target.  A.  key  point  to 
observe  is  the  variance  in  the  course  or  speed  "because 
this  would  show  that  the  track  is  not  a  firm  set  of  data 
and  that  it  could  be  noise. 

As  figure  6-2  illustrates,  the  courses  and  speeds 
are  quite  steady  and  well  within  reason?  the  speeds  are 
not  excessive  and  the  courses  are  roughly  in  the  same 
direction.  In  contrast,  figure  6-5  has  courses  that  vary 
30  degrees,  from  025.3  to  334.6,  and  speeds  that  jump  from 
7.69  to  4.69  causing  doubt  that  this  is  an  actual  track 
because  vessels  do  not  generally  proceed  in  this  fashion. 
These  were  two  extremes,  excellent  data  and  worst-case 
data;  however,  it  is  difficult  to  determine  the  validity 
of  the  track  for  most  data.  Figures  6-3  and  6-4  show  some 
more  common  data  in  which  the  courses  and  speeds  vary 
somewhat  but  they  are  gradual  changes  rather  than  abrupt 
changes . 
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To  change  ar.y   of  the  present  values  of  the  parameters  to 
new  values,  use  the  following  format: 

PARAMETEF-NUMBER,  NEW-VALUE  n 
For  example  ==>  4,1.2n  changes  the  coherence  limit  to  1.2 


MENU  0?  PARAMETERS 


LIMIT 


PARAMETER 


PRESENT  VALUE    NEtt  VALUE 


1-25 

1.  PEG-ION 

5 

1-7 

2.  RUN 

6 

1-10 

3.  TRACK 

9 

0.1-2.0 

4.  COHERENCE 

1.0 

30.00-50.30 

5.  LATITUDE (high) 

35.53 

30.00-50.00 

6.  LATITUDE(low) 

^e.<?0 

120. 00-140. 03 

7.  LONGITUDE(high) 

124.53 

120.00-140.00 

6.  LONGITUDE (low) 

125.00 

FIGURE  6-1 


MENU  FOR  PARAMETER  CHANGES 
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RUN  NUMBER  6    REGION  NUMBER  6    TRACK  NUMBER  9 

Peak    Position  Coordinates   Courses  and  Speeds 
Number   Latitude  Longitude     Course      Speed 


0 

39.500? 

147.5000 

0.0 

0.70 

342? 

39.4711 

147.4707 

142.0 

5.39 

35.33 

39.4682 

147.4552 

154.7 

5.52 

3449 

39.4212 

147.4189 

153.9 

5.96 

3540 

39.3562 

147.4417 

160.3 

6.09 

3453 

39.3960 

147.4815 

161.6 

5.59 

3421 

39.4021 

147.4739 

162.4 

5.32 

3479 

39.4219 

147.4632 

160.3 

5.71 

3429 

39.4037 

147.4297 

161.1 

5  .59 

A  VERT  C-OCr  TRACK  WITH  STEADY  COURSES  AND  SPEEDS 


FIGURE  6-2 
EXCELLENT  POSITIONAL-DATA 
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RUN  NUMBER  6    REGION  NUMBER  6    TRACK  NUMBER  9 

Peak    Position  Coordinates   Courses  and  Speeds 
Number   latitude  Longitude     Course      Speed 


2.3 
142.0 
150.6 
147.3 
156.4 
156.8 
144.7 
136.2 
149.7 


0 

38 

,5003 

142 

.5000 

3542 

38 

.4731 

142 

.4873 

347S 

38, 

.4422 

142 

.4791 

3546 

38 

.4431 

142 

.4^62 

3557 

38 

.4401 

142 

.4750 

3461 

38 

.4324 

142 

.4775 

3640 

38 

.4246 

142 

.4689 

3582 

38 

.4263 

142 

.4663 

3533 

^>o 

.4221 

142 

.4572 

3 

.30 

e 

.81 

6 

.72 

6 

.04 

p 

.87 

6 

.94 

6 

.4? 

6 

.75 

e 

7  K 

POSSIBLY  A  GOOD  TRACK,  BUT  THE   SIZE  OF  THE   REGION   BEING 
COVERED   IS  TOO  LAPGE. 


FIGURE  6-3 
LAPGE  AREA  POSITIONAL-DATA 
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RUN 

NUMBER  1 

REGION  NUMBER 

3    TRA 

CK 

NUMBER  4 

Peak 

Position 

Coordinates   C 

ourses 

an 

d  Speeds 

Nuiroer 

lati tude 

Longitude 

Course 

Speed 

0 

33.5020 

145 .5000 

0.0 

0.00 

3325 

33.4734 

145.5398 

228.4 

7.34 

3342 

33.46S9 

145.5402 

235.6 

9.27 

3394 

33.4502 

145.5693 

243.5 

10.21 

332? 

33.4294 

145.5728 

227.9 

6.38 

3319 

33.3625 

145.5829 

222.5 

7.03 

3364 

33.3518 

145.5962 

225.3 

7.86 

3316 

33.3329 

145.6336 

233.1 

6.3? 

3343 

33.2185 

145.6285 

242.3 

7.89 

EVEN   THOUGH  THE  COURSES  ARE  FAIRL1 

'    STEADY 

» 

THE  SPEEDS  ARE 

FLUCTUATING  GREATLY 

DUE  TO  THE  LOW 

COHERENCE 

LIMIT. 

FIGURE  6-4 
LOW  COHERENCE  POSITION-DATA 
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RUN 

NUMBER  3 

REGION  NUMBER 

4    TRA 

CK 

NUMBER  7 

Peak 

Position 

Coordinates 

Courses 

an 

d  Speeds 

Number 

Lati  tude 

Longitude 

Course 

Speed 

0 

36.5000 

143.5000 

0.0 

0.00 

3560 

36.4784 

143.6534 

020.5 

4.58 

3532 

36.5348 

143.5739 

034.6 

6.27 

3571 

36.5782 

143.4936 

025.9 

6.02 

3564 

36.6139 

143.4467 

012.3 

7.69 

3551 

36.6317 

143.4052 

005.3 

4.69 

3554 

36.6308 

143.3761 

014.7 

6.34 

3584 

36.6536 

143.3485 

018.1 

4.25 

3547 

36.6738 

143.3263 

023.5 

5.28 

POOH  TRACK  AS  SFEN  PY  THE  COUPS 

E  AND  SPESE 

CHANGES,  PP. OB- 

ABLY  PUE 

TO  THE  LARC 

'5  AREA  AND 

THE 

LOW  COE 

ERENCE  LEVEL. 

FIGURE    6-5 
Ift'OPST    CASE    POSITION-DATA 
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2 .   Peak-Data 

The  peak  data  displays  (figures  6-6  to  6-9) 
exhibit  some  rather  confusing  data  in  that  most  people 
know  little  about  tau  lines  and  fewer  people  have  any 
concept  of  numbers  associated  with  doppler.  The  STM/BM 
numbers  are  a  numerical  description  of  the  array  and  the 
direction  in  which  the  beam  is  pointing  when  it  received 
the  signal.  A  good  track  will  have  alternating  STM/5M 
numbers,  depicting  several  arrays  picking  up  the  data  and 
thus  the  triangulation  will  be  more  precise.  Another  place 
to  observe  the  alternating  of  arrays  is  the  tau  values. 
However  care  must  be  taken  not  to  confuse  the  varying  of 
the  numbers  with  the  alternating  of  arrays.  If  the  track 
is  weak  or  the  data  is  from  noise  it  could  appear  to  be 
alternating  when  it  is  actually  Just  varying  a  ?reat  deal. 
The  tau  values  obtained  from  a  single  array  should  not 
vary  a  sreat  deal  between  peaks.  When  tracking  a  surface 
vessel  the  doppler  values  will  be  very  steady  and  the  tau 
values  will  fluctuate  a  little  more  than  for  a  submarine. 

"Figure  6-6  illustrates  a  pattern  of  constantly 
switching  array  pairs  in  the  reception  of  data  about  the 
track,  while  any  data  received  by  a  single  set  of  arrays 
does  not  vary  a  great  deal.  For  example  the  switching  of 
tau  values  from  -416.7  to  27.3  to  -412. S  to  19.2  shows 
that  two  different  sets  of  arrays  are  picking  up  the 
signal,  while  -416.7,  -412.8,  -42f.7  of  a  single  array 
pair   show   that  the  values  are  fairly  steady.  In  contrast 
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figure  6-9  illustrates  that  signals  are  only  being 
received  by  one  set  of  arrays,  that  no  switching  occurs, 
and  that  while  in  a  single  array  pair  the  tau  values  vary 
quite  extensively,  62.1  to  25.7  in  a  short  period.  Again 
these  are  somewhat  extreme  cases  and  are  easy  to  interpret 
compared  to  the  data  displayed  in  figures  6-7  and  6-9, 
where  there  is  some  switching  and  some  fairly  steady 
readings . 

3.   Accuracy— Data 

The  accuracy  data  displays  (figures  6-10  to  6-1?) 
illustrate  some  data  that  is  good  for  determination  of  the 
quality  of  a  track  since  it  provides  the  operator  with  the 
Chi-Square  probability  of  a  target  being  within  a  specific 
region,  generally  an  ellipse.  The  individual  scores  are 
important  to  see  that  there  are  no  drastic  jumps  that 
would  adversely  affect  the  cumulative  score.  For  instance, 
a  large  single  individual  score  could  greatly  increase  the 
cumulative  score  and  present  a  false  impression  of  a  good 
track.  The  important  scores  to  watch  are  the  cumulative 
totals  which  should  approach  one  if  it  is  a  definite  track 
of  a  target. 

Figure  6-10  displays  the  pattern  of  a  good 
Chi-Square  accumulation  in  that  the  individual  scores  are 
constantly  getting  better  and  the  cumulative  score  is 
approaching  one.  The  individual  scores  are  getting  higher 
and  higher  because  the  probability  ellipses  are  combining 
and  thus  reducing  the  size  of  the  probable   contact   area, 
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figure  4-17.  In  the  worst-case  accuracy  data  display 
(figure  6-13),  the  individual  scores  dn  not  appreciably 
increase  because  all  the  data  is  being  received  at  one 
array  pair  and  the  ellipses  are  combining  in  such  a  manner 
that  the  area  of  probable  contact  does  not  significantly 
shrink. 
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RUN    NTJMPER    6        REGION    NUMPER    6        TRACK    KUrPEP    9 

?eak  -PEE   Station-  -PPD   Station-  Peak  Data 

Numoer  STP/P!*        Freq  STM/PM        Ereq  TAU           EOPPLER 

0                            0         0.00                         0         0.00  0.0             .0000 

342?  1323324      48. 70  1'722029      46.73  -416.7         -.0405 

3533  1322031      48.70  2411020      41.00  27.3            .0117 

3449  1323024      48.70  1322030      48.70  -412.8        -.0444 

3540  1322331      48.73  2411321      48.^3  19.2            .0229 

3453  1323025      48.70  1322030      48.70  -420.7         -.0400 

3421  1322032      48.70  2411020      48.70  22.7            .0245 

3479  1323324      48.73  1^22331      48.70  -418.6         -.0437 

3429  1322031      48.70  2411023      48. 7C  25.1            .0235 


GOOD    TRACK   'a'ITH    TV/0    SETS    CE   ARRAYS    SWITCHING    PACK   ANE    ECRTF 
TO   PROVIDE   DATA.    (    NOTICE   TEE   TAU   VALUES    ALTERNATING    ) 


figure  e-e 

EXCELLENT    PEAX-I'.ATA 
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FUN    NUMBER    3        REGION    NUMBER    4        TRACK    NUMBER    7 

Peak       -REE  Station-        -PRD   Station-  Peak  Lata 

Number      STM/BM         Ireq  STM/BM         Ereq  TAU  TOPPLER 


0  ^  49.70 

3542  1333331  46.70 

34^8  1333041  48.70 

3548  1333027  48.70 

3557  1322107  48.70 

3461  1333034  48.70 

3640  1333051  49.70 

3582  1322114  48.70 

3533  1333029  46.70 


(7 

48.70 

0.0 

.0000 

1346024 

46.70 

19.4 

.0201 

1346031 

48.70 

12.3 

.0237 

1346029 

48.70 

16.4 

.0394 

2411321 

48.73 

-426.3 

.1027 

1346021 

49.70 

27.8 

.0384 

1346039 

48.70 

18.2 

.0392 

2411324 

48.7  3 

-440.4 

.1079 

1346042 

48.70 

11.4 

.0369 

not  much  alternating  of  array  pairs,  probably  mot  too 
good  k   track:. 


FIGURE  6-7 
LARGE  AREA  PEAK-DATA 
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RUN    NUMBER    1         REGION    NUMBER    3         TRACK    NUMBER   4 

Peak  -RE?  Station-       -PPD   Station-  Peak  Data 

lumber        STM/BM        Freq  STM/BM        Freq  TAU  EOPPLER 


0 

0 

48.70 

0 

48.70 

0 

.0 

.0000 

3325 

1341021 

48.70 

1472365 

48.70 

22 

,7 

.0391 

3342 

1834261 

48.70 

2437001 

48.70 

-312 

.4 

-.0391 

3394 

1341036 

48.70 

1472341 

48.70 

15 

.6 

.0486 

3327 

1834275 

48.70 

2437009 

48.70 

-328 

.4 

-.0352 

3319 

1341028 

48.70 

1472355 

48.7? 

28 

.4 

.0592 

3364 

1341025 

48.70 

1472351 

48.70 

39 

.7 

.0491 

3316 

1834268 

48.70 

2437005 

48.70 

-321 

.1 

-.0379 

3343 

1341029 

48.70 

1472368 

48.70 

21 

.8 

.0529 

FAIRLY      GOOD      SWITCHING    OF    ARRAYS    BUT    WITHIN    AN    SRF.AY    PAIR 
THERE    IS    TOO    MUCH    VARIANCE    DUE    TO    THE    LOW    COHERENCE    LIMITS. 


FIGURE    6-Q 
LOW    COHERENCE   PEAK-DATA 
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t> 

CTN  NUMBER 

5   REGION  NUMBER 

5    TRACK  NUMBER 

22 

Peek 

-REE  St 

ation- 

-P*D  Sta 

tion- 

Peak 

Data 

Number 

STM/PM 

Ereq 

STM/E" 

Ereq 

TAU 

POPPLER 

0 

0 

48.70 

0 

48.70 

0.0 

.0000 

3560 

2411031 

48.70 

1441024 

49.70 

48.5 

.0243 

3532 

2412034 

43.70 

1442067 

48.70 

62.1 

.0294 

3571 

2411041 

48.70 

1441028 

48.70 

36.2 

.0362 

3564 

2411038 

48.70 

1441021 

4^.70 

25.7 

.0329 

3551 

2411036 

43.70 

1441025 

48.70 

28.3 

.0338 

3554 

2411028 

48.70 

1441020 

48.70 

49.6 

.0195 

3584 

2411031 

48.70 

1441024 

48.70 

41.2 

.0293 

3547 

2411035 

49.70 

1441018 

48.70 

55  .7 

.0264 

MC  SWI 

!!CHING  0? 

ARRAY  PAIRS  ,  BUT 

A  LOT  OE 

VARIANCE 

IN  THE 

TAU  VALUES.  A  VERY  POOR  TRACK. 

FI3URE    6-9 
WORST    CASE   PEAK-DATA 
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Water   Time  peak 

23-Feb-80  Number 


RUN    NUMBER    6        REGION    NUMBER    6         TRACK    NUMBER    9 


Prob  — CHI    Square   Scores — 

Score  Sta^ewise        Currulati  ve 


14' 

-58:03 

0 

0.00 

0.0000 

0.0000 

14' 

:58:03 

3427 

-1.80 

0.3171 

0.3171 

15 

:04:23 

3533 

-4.89 

3.0162 

0.1667 

15 

:14:30 

3449 

-3.99 

0.4410 

0.2581 

15 

5 38: 35 

3540 

-4.66 

1.4096 

0.2460 

15 

:48:44 

3453 

-4.81 

2.0796 

3.8527 

15 

:49:31 

3421 

-4.31 

1.8945 

0.8892 

15 

»  E.  0  .  R  g 

3479 

-4.75 

2.0038 

0.93?? 

15 

:52:34 

3429 

-4.89 

2.2893 

3.9402 

OUTSTANDING    CUMULATIVE    SCORE   BY    TPE    FINAL    TIME   PERIOD, 
A   VERY    GOOD    TRACK. 


FIGURE    6-10 


EXCELLENT  ACCURACY-DATA 
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RUN 

NUMBER  3 

REGION  NUMBER   1    TRACK 

NUMBER  4 

Water  Time 

Peak 

Prob 

-CHI  Square 

Scores — 

23-"?eb-80 

Number 

Score 

S  ta^ewi  se 

Cumulative 

16:52:56 

0 

0.00 

0.0000 

0.0000 

16:52:56 

3542 

-1.49 

0.1435 

0.1435 

16:55:37 

3478 

-1.27 

0.2159 

0.1537 

16:58:1? 

3548 

-1.82 

0.53e2 

0.3829 

16:59:19 

3557 

-1.95 

0.6547 

0.4690 

17:03:02 

3461 

-2.56 

1.1021 

0.7023 

1?:05:56 

3640 

-1.13 

0.2371 

0.6501 

17:09:42 

3582 

-2.03 

0.6829 

0.6928 

17:11:48 

3533 

-3.25 

3.7928 

0.7522 

THE   CUMULATIVE   SCOR 

E  IS  FAIR 

BUT  NONE  OF 

TH 

E  INDIVIDUAL 

SCORES  IS 

VERY  HIGH. 

FIGURE    6-11 


LARGE   AREA    ACCURACY-DATA 
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RUN 

NUMBER  2 

REGION  NUMBER  3    TRJ CI 

NUMBER  6 

tfater  Tiire 

Peak 

Prob 

— CHI  Square  Scores — 

23-Eeb-80 

Number 

Score 

St. a^ewi  se 

Cumulative 

06:12:37 

0 

0.00 

0.0000 

0.0000 

06:12:2? 

3325 

-0.83 

0.2134 

0.2134 

06:13:25 

3342 

-1.52 

0.4327 

0.3463 

06:14:0? 

3394 

-1.83 

3.5621 

0.4743 

05  :  14  :  57 

3327 

-1.97 

0.7631 

0.6411 

06:16:32 

3319 

-2.24 

0.6428 

0.6229 

06:17:29 

3364 

-2.56 

0.8817 

0.7536 

06:18:54 

3318 

-2.?2 

0.9443 

0.7826 

06:20:21 

3343 

-2.74 

0.9218 

0.7721 

FAIR  CUMUI 

,ATI7E  VALUES, 

BUT  LOW 

INDIVIDUAL  VALUES  DUE  TO 

LOW  COHERENCE  LIMITS 

• 

FIGURE  6-12 


LOW  COHERENCE  ACCURACY-DATA 
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RUN 

NUMBER  6 

REGION  NUMBER  4    TRACK 

NUMBER  7 

Water  Time 

Peak 

Prob 

—  CHI  Squar- 

b  Scores — 

23-Teb-9? 

Number 

Score 

S tagewi  se 

Cumulative 

21:26:04 

e 

0.00 

0.0000 

0  .0000 

21:26:04 

3560 

-0.90 

0.1021 

0.1021 

21:37:09 

3532 

-1.43 

0.2341 

0.1735 

21:37:52 

3571 

-1.78 

0.3417 

0.26  38 

21:29:38 

3564 

-1.93 

0.3176 

0.4173 

21:39:41 

3551 

-2.06 

0.3814 

0.4328 

21:40:02 

3554 

-2.54 

0.4027 

0.445c 

21:40:58 

3584 

-2.36 

0.3311 

0.4637 

21:41:44 

3547 

-2.21 

0.3517 

3.4526 

VERY  LOW  CUMULATIVE 

SCORE.   A 

VERY  POOR  TRACK 

• 

FIGURE  6-13 


WORST  CASE  ACCURACY-DATA 


86 


4.   Surface-Plots 

The   surface   plots   can  reveal  a  srreat  leal  about 

the  actual  situation  in  any  area  without  picking  a^y 
special  track  to  correlate  on  because  it  displays  the 
entire  range  of  frequency  values  in  that  area.  When  the 
area  is  of  proper  size  for  the  type  of  surveillance  that 
is  being  conducted  and  the  coherence  limit  is  set  high 
enough  to  reduce  noise  yet  low  enough  to  detect  the 
required  signal t  then  a  surface  plot  can  assist  the 
operator  in  distinguishing  a  valid  track. 

Figure  6-14  illustrates  the  type  of  display  that 
could  help  the  operator  to  concentrate  his  efforts  in  the 
area  on  the  left  side  of  the  plot.  Care  must  be  taken  as 
to  the  size  of  the  area  and  the  level  of  the  coherence 
limit  because  they  could  cause  a  surface  plot  to  present 
the  operator  with  a  false  impression  of  the  actual 
situation,  as  figure  6-16  illustrates. 

D.   SUMMARY 

The  scenario  section  of  the  embedded  tutorial  is 
important  to  the  development  of  qualified  operators 
because  it  gives  them  the  opportunity  to  refine  their 
skills  on  tactical  data  and  to  experiment  with  different 
combinations  of  parameters.  This  is  especially  important 
in  the  early  stages  of  development  since  there  are  no 
concrete  guidelines  for  obtaining  the  best  picture  of  the 
surveillance  area. 
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type  ==>  Menu,  Location,  Peais ,  Accuracy,  Surface,  Return 


REGION  NUMBER   6 


COHERENCE  LIMIT  1.3 


O       o 


o 

o 


0  o00„  Co    £> 


M 


C-OOE  SOLID  PATTERN  SOWN  TEE  LEFT  SID^  OF  TEE  REGION 


FIGURE  6-14 


EXCELLENT  SURF*CE-PLOT 
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type  ==>  t^enu.  Location,  Peaks,  Accuracy,  Surface,  Peturn 


REGION  NUMBER  1 


COHERENCE  LIMIT   1.0 


J           <J 

0 

0 

O 

0 

o      o 

V 

0 

?     0 

0 
o 

0 

NO  PATTERN  IN  THIS  LARGE  AREA. 


FIGURE  6-15 


LARGE   AREA    SURFACE-PLOT 
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type  ==■>  ^enu,  Location,  Peaks,  Accuracy,  Surface,  Return 


REGION  NUMBER    3 


COHERENCE  LIMIT   0.6 


^7P — °  ©  Q 

*o«»   ^ 


( 


TOO  MUCH  NOISE  DUE  TO  THE  LOW  COHEPFNCE  LIMITS 


FIGURE  6-16 


LOW    COHERENCE   SUR?AC5-PL0T 
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type  ==">  Menu,  Location,  Peaks,  Accuracy,  Surface,  Return 


REGION  NUMBER   4 


COHERENCE  LIMIT   0.6 


1 

7 — 

^ 

L 

9 

0 

0 

o  « 

o 

o 

o 

°<9 

O 

o 

o 

0 

0 

0 

0 

o 

5 

Q 

o 

o 

0 

n 

^ 

A  LOT  CT*  NOISE  DUE  TO  TOO  LOW  COHERENCE  LIMITS  AND 
TOO  LARGE  AN  AREA  TO  COVER  ADEQUATELY. 


FIGURE  6-17 


WORST   CASE    SURFACE-PLOT 
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VII.  CONCLUSION. 

The  data  obtained  tends  to  indicate  that  computer 
assisted  instruction  is  superior  to  conventional  training 
when  the  trainee  will  eventually  be  working  on  a  computer 
or  console.  This  can  he  attributed  to  certain  individuals 
being  more  inclined  toward  this  type  of  work  and  thus  the 
use  of  a  computer  based  instruction  seems  quite  natural. 
The  failures  in  the  use  of  computer  based  instruction  tend 
to  be  in  fields  that  require  more  manual  dexterity,  i.e. 
machinist  mate  and  boiler  technician,  or  where  the  trainee 
has  a  much  lower  initial  aptitude.  If  the  trainee  has  poor 
reading  skills,  this  type  of  instruction  will  highlight 
all  of  his  weaknesses,  whereas  some  individuals  can 
acquire  a  great  deal  of  knowledge  by  listening  to  an 
instructor. 

The  disadvantage  of  computer  based  instruction  in 
almost  every  case  is  the  cost  of  the  intial  system 
compared  to  the  cost  of  a  teacher  for  the  same  number  of 
students.  An  embedded  tutorial  reduces  the  cost  since  the 
computer  is  already  paid  for  by  its  operational 
requirement.  The  only  expense  is  possibly  of  an  additional 
console  and  the  cost  of  the  instructional  code.  The  extra 
console  could  be  used  as  a  spare  for  the  operational 
system  and  the  instructional  code  should  not  be  too  much 
more  expensive  than  the  printing  of  a  textbook. 

Ey  the  demonstration  of  the   instuction   presented   in 
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this  paper,  it  is  hoped  that  future  research  can  be  done 
in  the  area  of  computer  based  instruction  for  the 
appropriate  fields.  The  flexibility  of  the  instruction, 
the  ease  of  manipulation,  and  the  variety  of  possible 
displays  all  point  to  the  vast  capabilities  of  a  color 
graphics  tutorial. 

A.   RECOMMENDATIONS 

Further  research  should  be  conducted  into  the  use  of 
computer  assisted  instruction  for  certain  types  of  jobs, 
i.e.  ASW  surveilance,  secretarial  positions,  clerical 
positions,  communications  personnel.  The  natural  abilities 
of  personnel  entering  these  fields  makes  the  use  of 
computers  seem  almost  natural,  since  they  generally  have 
both  a  higher  I.Q.  and  clerical  aptitude. 

This  tutorial  should  be  designed  for  the  Ramtek  9403 
since  that  is  the  equipment  to  be  used  operationally.  The 
school  is  presently  installing  a  Ramtek  94=20  so  work  could 
continue  on  this  project  by  transferring  the  code  to  the 
new  system  with  improved  performance  because  of  the 
superior  capabilities  of  the  new  console.  The  amount  of 
code  required  by  many  of  the  displays  could  be  reduced 
because  the  Ramtek  9400  can  perform  some  functions  easily 
which  are  quite  complex  on  the  existing  system. 

The  use  of  color  can  enhance  the  pattern  recognition 
capabilities  of  humans  so  a  further  project  would  be  to 
display  the  surface  plot  data  in  different  colors 
corresponding  to  signal  amplitude. 
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Another  project  would  be  to  write  an  algorithm  that 
would  take  actual  data  from  the  operational  system  and 
transform  it  into  displays  that  could  be  used  for  the 
scenario  section  of  the  tutorial.  This  would  give  the 
operator  an  almost  limitless  number  of  new  examples  on 
which  to  practice. 
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#  * 

*  This  is  the  main  section  of  code  that  controls  the  other  * 

*  separately  compiled  sections  of  code.  It  establishes  the  * 

*  type  of  tutorial  that  the  user  wishes  to  see  and  then  it  * 

*  forks  to  that  section  of  code.  * 

*  # 

char  select;    /*  global  variable  */ 

main(  )   { 

float  x,y,z; 

char  cc ,cd ,ce,*st J 

int  i; 

ramtek();   /*ini tializes  the  Barrtek  system  */ 

writon(l); 

colortable( );   /*  establishes  a  new  color  table  */ 

colort(10)J 

picl()»     /*  allows  the  first  disnlay  to  remain  */ 

c  c =  z  ; 

while  (cc!='s')   {   /*  while  #1  */ 

cc=retchar( );    }   /*end  while  #1  */ 
while  (1)    {   /*  while  #2  */ 
colort(10)J 

pic99()J    /*  introduction  disolay  */ 
cc=  z  » 

while(cc=='z')    {  /*  while  #3  */ 
cc=retchar ( ); 

switch(cc)   {   /*  switch  #1  */ 
case  'a':    /*  basic  tutorial  */ 
select='a'; 
break; 
case  'b':   /*  data  display  tutorial  */ 
select='b'; 
break? 
case  'c':   /*  senario  tutorial  */ 
select='c '; 
break; 
case  'q':    /*  Quit  */ 
pstop( ); 

pic99();    /*  introduction  display  */ 
cc='z'J 
break; 
default: 

cc='z'; 

}   /*  end  switch  #1  */ 
}   /*  end  while  #3  */ 
color(15); 

block( 14. 0,2. 0,90. 0,10.0); 

strtiy(30. 0,8.0) ; 

color (0J; 

strout(*Do  you  want  any  instructions?  (  y  /  n  )")> 

cc=retchar (  ); 
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if  (cc— 'y')   { 

pic89();    /*  instruction  display  */ 
cc=retchar ( ) » 
while  (cc!='c') 
cc=retchar( ) ; 

} 
switch  (select)    {    /*  switch  *2  */ 
case  'a':    /*  basic  tutorial  */ 
colort(l); 

asw();    /*  interrupt  display  */ 
sleep(4); 

if((i=fork())==e)    J 
execl(  segl  ,  se^l  ,0); 
exitO; 
} 
wait(&i); 
break; 
case  'b':    /*  data  display  */ 
colort (2) ; 

asw();    /*  interrupt  display  */ 
sleep(4); 

if((i=fork())==0)    n{ 
execl("seg3", "seg3" ,0) ; 
exitO; 

} 
wait(&i); 

break; 
case    'c':        /*   senario    tutorial   */ 
colort (3); 

asw();        /*    interrupt   display   */ 
sleepU); 
if  ((l=fork()  )==0t)    ,.    { 

execl("Senerio","Senerio"  ,0) ; 
exitO; 
} 
wait(&i)> 
"break; 
default : 

printf ("ERROR"); 
}      /*  end   switch   #2  */ 
}        /*   end  while  #2   */ 
}        /*   end   main   */ 


colortableO      {        /*  Establishes   a  new   color   table 
int   a  [16]  ; 

a [0]    =   triple(0,0,0)J 
a[l]    =   triple(15f0,0); 
a[2l    =   triple(0,15t0)J 
a [31    =   triple(0,0,15); 
a [4]    =   tripled*. 5,0); 


a [5]    =   triple(2,0t6); 
a [6]    =   triple(0,10,0); 


/*   black  */ 

/*   blue  */ 

/*   green   */ 

/*   red   */ 

/*   light   blue  */ 

/*  rraroon   */ 

/*   bright   green  */ 
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=    triple(2,6,10); 
81    =   triple(6,10,2); 


IF 

a[9l    =   triple(10,2,6); 


} 


a  [10] 

a  [11] 

a  [121 

a  [131 

a  [14] 

a  [15] 
clrtbl(10,a); 
return? 


triple    (13,5,2) ; 

triple(5,2,13); 

triple    (2,13,5); 

triple(15,0,15); 

triple(10,4,4); 

triple(15,15,l5); 


/* 

peach  */ 

/* 

pail  green  */ 

/* 

purple  */ 

/* 

medium  blue  */ 

/* 

hot  pink  */ 

/* 

light  green  */ 

/* 

pink  */ 

/* 

greyish  blue  */ 

/* 

white  */ 

pstopO      { 

/*   Displays    the   question   of      Lo   you   really  want 
to  quit?"   and   then  waits    for   a    reply  */ 

char   *st ,*sp,stopJ 

sP=       ; 

color(ll); 

block (0.0, 0.0, 10 0.0, 100.0) ; 

color(5) > 

strtxy(45. 0,80.0); 

st="ro    you  ; 

strout(st);    strout(sp); 

st="REALLY"; 

strout (st ) ; 

strout (sp) ; 

St='*WANT    TO"; 

strout(st);    strout(sp); 

st="  quit?"; 

strout (st ) ; 

st="(y  /   n)"; 

strout (st ); 

stop=retchar( ) ; 

if    (stop==V)      ( 
color(0); 

block (0.0, 0.3, 100.0, 100.0); 
exit();   /*  Exits  program  if  user  want  to  quit  */ 

return; 

} 


piclO   {  /*  Displays  ASW  in  large  block  letters  */ 
char  *stl,*st2J 
color(3); 

block (0.0, 0.0, 100.0, 100.0); 
color(12) ; 

bl ock( 15.0, 50. 0,20.0, 68. 0) ; 
block( 30. 0,50. 0,35.0, 68.0); 
block ( 15. 0,58. 0,35. 0,63.0); 
block( 15.0,68. 0,21. 0,69.0); 
block( 16. 0,69. 0,34. 0,70.0); 
block (17. 0,70. 0,33. 0,71.0); 
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"bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
bloc 
dblw 
stl  = 
St2= 
strt 
stro 
stro 
dblw 
strt 
colo 
stro 

retur 

} 


k(l8.0,70. 
k(19.0,71. 

k(29. 0,68. 
k(40.0,50. 
k (55. 0,50. 
k(4r0.0,58. 
k(40.0,58. 
k(40.0,68. 
k(65.0,50. 
k(80.0,50. 

£(74.0,53. 

k(73.0,52. 
k(72.0,51. 
k(71.0,50. 
k(70.0t50. 
k{76.0,52. 
k(77.0,51. 
k(79.0f50. 
k(79.0,50. 
id(l); 

"embedded" 
"tutorial" 

xy(40.0,40 

ut(sti); 
ut (st2); 

id(0); 

xy(70.0,5. 

r(15); 

ut(  tyt>e  s 


0,32. 
0,31. 
0,34. 
0,60. 
0,60. 
0,60. 
0,45. 
0,60. 
0,70. 
0,85. 
0,76. 
0,74. 
0,73. 
0,72. 
0,71. 
0,77. 
0,78. 
0,79. 
0,80. 


0,72.0 
0,73.0 
0,69.0 
0,55.0 
0,63.0 
0,63.0 
0,73.0 
0,73.0 
0,73.0 
0,73.0 
0,60.0 
0,59.0 
0,58.0 
0,57.0 
0,56.0 
0,59.0 
0,58.0 
0,57.0 
0,56.0 


.0); 
0); 

to  start"); 


pic99()    {   /*  Introduction  Display  */ 

color(4) ; 

block (0.0, 0.0, 100. 0,1 00.0); 

color(0) ; 

dblwid(l); 

strtxy(20. 0,95.0); 

strout ("EMBEDDED  TUTORIAL  INTRODUCTION"); 

dblvid(0); 

strtxy(15. 0,87.0); 

strout("   This  tutorial  is  designed  to  meet  the  needs  of  an 

assortment  of"); 
strout ("users,  from  the^novice  to  the  experienced  tracker. 

ttThere  are  three"  )  ; 
strout ("categories  that  can  be  reviewed:   "); 
strout ("   "  ) ; 
stroutf'a)  The  basic  principles  of  the  system  are  discussed 

and  many  of  the") ; 
strout("   problems  associated  with  the  system's  environment 

are  dealt  with" ) ; 
strout("   in  detail  in  this  section.  "); 
strout("b)  The  types  of  data  that  will  be  displayed  during 
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actual  system"); 
strout("   operation  are  presented  along  with  explanations 

of  the  data  and" ) ; 
strout("   key  areas  to  watch  for  while  tracking.  ")» 
strout(c)  A  set  of  practice  senarios  are  presented  "based 

on  the  user  inputted"); 
strout("   parameters.   These  senarios  allow  the  user  to 

see  actual  data  "being"); 
strout("   presented  and  the  effects  of  various  parameter 

settings.  Key  points"); 
strout("   are  also  highlighted  in  this  section.  ")J 
strtxy(l5. 0,8.0); 
strout("type  in  the  letter  of  the  desired  category  (a,b,c) 

or  (q )  to  quit"  ) ; 
return; 
} 

pic89()    {   /*  Instruction  Display  */ 

color(l); 

block( 0.0, 0.0, 130. 0,1 0  3.0); 

color (4) ; 

block (0.0 ,30.0, 100. 0,90.0); 

strtxy(10. 0,97.0); 

color (2) ; 

strout ("Menu  of  possible^areas  to  proceed  to  next  is 

presented  here."); 
strtxy(20. 0,70.0); 
switch( select )   { 
case  'a':tt 

strout("   Basic  diagramst  will  be  illustrated  in  this 

>farea.  They  will"); 
strout ("depict  a  view  of  the  overall  system,  environ- 
mental problems,"); 
strout ("and  detailed  displays  of  questionable  areas. 

ttPeview  this  area"); 
strout ("before  reading  the  explanation  below.  "); 
break; 
case  'b':ti 

strout("   This  section  will  illustrate  some  typical 

Mdata  that  would"); 
strout("show  up  as  the  tracker  is  utilizing  the 

operational  system."); 
strout("The  data  will  represent  some  relatively  good 

tracks  in  order"); 
strout("to  demonstrate  how  the  data  should  appear.  '); 
break; 
case  'c':ti 

strout("   The  data  illustrated  in  this  section  is 

dependent  upon  the"); 
strout("user  inputs  of  parameters.   As  the  user  alters 

the  parameters" ) J 
strout("on  the  menu  display,  the  computer  alters  the 

tyne  of  data  "); 
stroutTthat  will  be  exhibited.  "); 
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break; 

} 
strtxy(16. 0,29.0)  ,* 

switch(select )   { 


case  'a ' : 


strout(   An  explanation  of  the  above  area  will  "be 

displayed  in  this"); 
strout(  section.   Generally  it  will  be  a  simplified 

review  of  the  basic")* 
strout ("concept  with  a  few  new  ideas.   If  the  new  ideas 

are  not  fully") ; 
strout ("understood ,  then  they  will  probably  be  listed 

in  the  menu  and" ) ; 
strout("can  be  pursued  further.  "); 
break; 
case  'b':t> 

strout ("   An  explanation  of  the  above  data  and  some  key 
points"); 
strout(  to  watch  for  will  be  described  in  this  section."); 

break; 
case  'c':t 

strout("   A  very  brief  statement  about  the  data  and  its 

reasons  for"); 
strout ("being  good  or  bad  will  be  described  in  this 

section.  ")J 
break; 
} 
strtxy(50. 0,6.0) ; 
strout("type  c  to  continue"); 
return? 
} 


asw()    {    /*  Interrupt  Display  */ 

float  x; 

int  i; 

i=6; 

for(x=0.0;x<41.0;x=x+5.0)   { 

i=i+i; 

color(i); 

b 1 ock ( x , x , 1 00 . 0-x , 1 00 . 0-x  ) ; 
} 
strtxy(45. 0,58.0); 
color(l]; 

strout (w  A  S  W  "); 
strout ("Embedded^); 
strout ("Tutorial") ; 
return; 

> 
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#  This  pr 

#  a  compu 

#  It  is  d 

#  all  the 

#  and  ins 

#  no  need 

#  Due  to 

#  five  mo 

#  forked 

#  to  the 

#  the  fir 
########## 


ogram  demonstrates  some  of  the  capabilitie 
ter  to  instruct  individuals  in  basic  skill 
esigned  to  be  self-paced  and  totally  conta 

material  required  (  pictures,  text,  formu 
tructions).  Once  the  user  is  logged  on  the 

for  an  instructor  to  monitor  the  individu 
the  size  of  the  program,  it  is  broken  up  i 
dules  that  are  compiled  separately  and  the 
together  when  required.  There  are  three  p 
tutorial  and  then  the  serario  section.  Th 
st  section  of  the  tutorial. 
########################################## 


of 


n 

# 

# 
# 
n 

a 
u 

# 
# 


s 
s . 

ins 
las , 
re  is 
al. 

r.to 
n  are 
arts 
is  is 


main(  )   { 
float  x  ,y ,z; 

char  cc  ,cd,ce,*st ; 
int  ij 

ramtekf):   /*initiali zes  the  Ramtek  system  */ 

writond  ); 

colortable ( ) J   /*  establishes  a  new  color  table  #/ 

colort(10); 

picl();     /*  allows  the  first  display  to  remain  */ 

sleep(5)T   /*  on  the  screen  5  seconds  before   */ 

pic2();     /*  the  second  display  is  presented  */ 


cc='z'; 


/*  while  #1  */ 


while  (cc=='z')   { 
cc=retchar( ) ; 

switch(cc)   {   /*  switch  #1  */ 
case  'c':    /*  Continue  */ 
pic3(  ); 


cd=  z  » 


/*  while  #2  */ 


while  (cd=='z')   { 
cd=retchar( )» 

switch(cd)   {   /*  switch  #2  */ 
case  'c':    /*  Continue  */ 

break; 
case  'r':    /*  Return  */ 
pstop( ) ; 
pic3();  /*  displays  pic3  if  quit  isn't  desired  #/ 

=  z  > 
break 
default 
=   z 

}    /*end  switch  #2  */ 
}   /*  end  while  #2  */ 
break? 
case  'f':  /*  Extra  display  if  'f '  is  accidently  typed*/ 
pic2a(); 
cc='z '; 
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break; 
case  'r':    /*  Return  */ 

pstop(  ) ; 

pic3():   /*  displays  pic  3  if  quit  isn't  desired  */ 

cc=  z  » 

break; 
default : 

cc=  z  > 
}   /*  end  switch  #1  */ 
}   /*  end  while  #1  */ 
pic4(  ); 
cc=  z  ; 

while  (cc=='z/)   {    /*  while  #3  */ 
cc=retchar ( ) ; 

switch(cc)   {    /*  swithch  #3  */ 
case  'n':    /*  ttoise  display  */ 
pic31()J 

cc=  z  ; 

break? 
case  'd':    /*  Distance  display  */ 
pic32(); 

cd-'z'; 

while  fcd=='z')   {   /*  while  #4  */ 
cd=ret char(  ) ; 

switch(cd)   {    /*  switch  #4  */ 
case  'n':   /*  Noise  display  */ 


pic31(); 

cc='z '; 

break; 
case  't ': 

pic33(); 

cc='z '; 

break; 
case  'w': 

pic34(); 

cc=  z  » 

break; 
case  '1  ': 

pic321(  ); 

ce=  z  J 


/*  steps  out  of  while  #4  */ 

/*  Time  display  */ 

/*  steps  out  of  while  #4  */ 

/*  Water  terperature  display  */ 

/*  steps  out  of  while  #4  */ 

/*  Tau  line  display  */ 


while    (ce=='z')      {        /*   while   #5   */ 
ce=retchar( ) ; 

switch(ce)   {   /*  switch  #5  */ 
case  'n':    /*  Noise  display  */ 
pic31(); 

cc='z';   /*  steps  out  of  while  #4  */ 
break; 
case  't':    /*  Tirre  display  */ 
pic33(); 

cc='z';   /*  steps  out  of  while  #4  */ 
break; 
case  'd':    /*  Distance  display  */ 
pic32(  ); 
cc='z';   /*  steps  out  of  while  #4  */ 
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break; 
case  'w':    /*  Water  temperature  display  */ 

pic34(); 

cc='z';   /*  steps  out  of  while  #4  */ 

break? 
case  'p':   /*  Tau  line  problems  */ 

pic3211(); 

cc='z';   /*  steps  out  of  while  #4  */ 

break; 
case  'c':   /*  Continue  */ 

pic5();   /*  steps  out  of  while  #3  */ 

break; 
case  'r':    /*  Return  */ 

pstoT>( ); 

pic321();   /*  displays  pic  321  if  quit  */ 
ce='z';     /*  isn't  desired  */ 

break; 
default: 
ce='z'; 
}   /*  end  switch  #5  */ 
}   /*  end  while  #5  */ 
break; 
case  'c':    /*  Continue  */ 

pic5();        /*   steps    out    of   while   #3   */ 
break; 
case    'r':        /*  Peturn   */ 
pstop() ; 
pic32( ); /-'displays   pic   32    if   auit   isn't   desired-/ 

=   z    t 
break; 

default : 

d*    *  • 
-    Z     } 

}        /*   end   switch   #4  */ 

}        /*   end  while   #4   */ 

break; 

:        /*    Time   display   */ 


case    't': 
pic33(); 

cc='z'; 

break; 
case    'w': 

T)ic34( ); 

cc='z'» 

break; 
case    'c': 

pic5(); 

break; 
case    'r': 

pstop( ) ; 

pic4(); 

cc='z'; 

break; 
default : 

cc=  z  ; 

}   /*  end  switch  #3  */ 


/*  Water  temperature  display  */ 


/*  Continue  */ 


/*  Return  */ 

/*  displays  pic  4  if  quit  isn't  desired  */ 
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/* 

black  */ 

/* 

blue  */ 

/* 

green  */ 

/* 

red  *  / 

/* 

light  blue  */ 

/* 

rraroon  */ 

/* 

bright  green  */ 

/* 

peach  */ 

/* 

pail  green  */ 

/* 

purple  */ 

;  /* 

medium  blue  */ 

/* 

hot  pink  */ 

light  green  */ 

;  /* 

pink  */ 

/* 

greyish  blue  */ 

);  /* 

white  */ 

}        /*  erd   while   #3  */ 

if  ((i=fork())==0)      {t<      /*   If   stmt    #1    */ 

execl ( "see^", "seg?" ,0) ;    /*  forks  to  segment  2  */ 

exit( ); 

}    /*  end  If  stmt  #1  */ 
wait(&i); 
}    /*  end  of  main  */ 


colortableO   {    /*  Establishes  a  new  color  table  */ 
int  a [161  ; 

a[0]    =  triple(0,0,0)J 

aCl]    =   tripled?  ,0,0); 

a [21    =  triple (0,15,0); 

a  [3]    =   triple(0,0,15); 

a  [4]    =   tripled?, 5,0); 

a  [51    =   triple(2,0,6) ; 

a[e"l    =   triple(0,10,0); 

a[7]    =   triplet?, 6, 10); 

a  [8]    =   triple(6,10,2); 

a  [91    =  triple(10,2,6); 

a  [10]    =   triple   (13,5,2) 

a [111    =    triole(5,2,13); 

a  [121    =    triple    (2,13,5) 

a  [13]    =   triple(15,0,15) 

a  [141    =   trinle(10,4,4); 

a  [151    =    triple(15,15,15); 
clrtbl(10,a); 
return ; 
} 


pstopO      { 

/*  Displays  the  question  of  "do  you  really  wart 
to  quit?"  and  "then  sets  the  value  of  STOP   */ 
char  *st ,*sp; 
STD=     ; 
color(ll); 

block (0.0, 0.0, 100. 0,1 00.0) ; 
color (5) ; 

strtxy(45.0,P0.0); 
st="D0  you"; 
strout(st);  strout(s-D); 
st="REALLY"; 
strout (st ) ; 
strout (sp) > 
St="WANT  to"; 
strout ( st);  strout(sp); 
st="  RETURN  TO"; 
strout(sp) ; 

strout ("THE  MAIN");  strout(sp); 
strout ("program?");  . 
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strout (st ) » 
st="(y  /  n)"j 
strout (st ) » 
STOP=retchar( )J 
if  (STOP— V)   { 

stop='y'; 

color(0); 

block(0. 0,0. 0,100. 0,100.0); 

} 
return; 
} 


picl(  )   {   /*  Displays 

char  *stl,'!sst2; 

color 

block 

color 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

dblvid(l), 

5  tl-"l!tf  BEDDED"? 

St2="TUT0RIAL"; 

strtxy(40. 0,40.0) J 

strout (stl) J 

strout(st2) ; 

dblwid(0); 
return; 
} 


AS 


(3); 

(0.0,0.0,100.0,100.0) ; 

(12); 

(15.0,50.0,20.0,66.0); 

(30.0, 

,50.0,35.0, 

68.0) ; 

(15.0, 

53.0,35.0, 

63.0); 

(15.0, 

,68.0,21.0, 

69.0); 

(16.0, 

,69.0,34.0, 

,70.0); 

(17.0, 

70.0,33.0, 

71.0); 

(16.0, 

,70.0,32.0, 

72.0); 

(19.0, 

71.0,31.0, 

73.0); 

(29.0, 

,68.0,34.0, 

69.0); 

(40.0, 

50.0,60.0, 

55.0); 

(55.0, 

,50.0,60.0, 

63.0); 

(40.0, 

,58.0,60.0, 

63.2); 

(40.0 

,58.0,45.0, 

73.0); 

(40.0, 

,63.0,60.0, 

73.0); 

(65.0 

,50.0,70.0 

,73.0); 

(80.0, 

,50.0,85.0, 

,73.0) ; 

(74.0 

,53.0,76.0, 

,60.0); 

(73.0 

,52.0,74.0, 

59.0); 

(72.0 

,51.0,73.0, 

,58.0); 

(71.0 

,50.0,72.0, 

,57.0); 

(70.0 

,50.0,71.0, 

,56.0) ; 

(76.0, 

,52.0,77.0 

,59.0); 

(77.0 

,51.0,78.0, 

58.0) ; 

(78.0, 

,50.0,79.0 

,57.0); 

(79.0 

,50.0,80.0, 

,56.0); 

in  lar^e  block  letters  */ 


107 


pic2()   {    /*  This  subroutine  displays  the  instructions 

needed  to  use  the  tutorial   */ 

char  *st* 

int  stimej 

color(l); 

block (0.0,0.0,100. 0,1 00.?); 

color(2); 

dblwid(l); 

strtxy(25. 0,96.0); 

st="TUTORIAL  INSTRUCTIONS"; 

strout(st); 

vector (25. 0,92. 0,72.0,92.0); 

dblvid(0); 

strtxy(10. 0,91.0); 

st="   This  embedded  tutorial  is  designed  to  give  you  the 
hands  on  training"; 

s trout (st ) ; 

st="required    to    operate   this   ASW    surveilance   systerr.      It 
contains    some   overall"; 

strout(st ) • 

st="views  of  the  system,  sore  theory  of  its  working  capabil- 
ities and  then  a  short"; 

s trout (st ) ; 

st="scenerio  of  possible  actions  which  can  be  taken  by  you"; 

strout (st ) ; 

ft      *i 

st=    ; 

strout (st); 

st="   To  operate  the  tutorial  there  are  three  areas  to  watch 

strout (st ) ; 

st="l)  all  of  the  instructions  at  the  top  of  each  frame 

provide" ; 
strout (st ) ; 

st="   you  with  the  possible  areas  you  can  proceed  to  next"; 
strout (st ) : 

st="2)  The  middle  area  is  either  a  display  which  will  be"; 
strput (st ) ; 

st="normally  viewed  while  operating  the  system  or  it  is  a"; 
strout (st ); 

st="display  that  provides  a  better  view  of  the  entire  system 
strout (st ) ; 
st="3)  The  bottom  area  gives  you  an  explanation  of  the 

middle  area."; 
strout (st) ; 
st="   "; 
strput (st ) ; 
st="To  utilize  the  tutorial,  cress  the  key  of  the  first 

letter"; 
strput (st ) ; 

st="of  the  word  which  describes  where  you  wish  to  prcceed."; 
strout (st ) ; 

st="    type  ==>  Continue,  Filter,  Quit"; 
strout  (st ) ; 
st="By  typing  an  f  you  would  proceed  to  a  display  of  filters 
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strout  (st )  > 

ft 

st  = 

strout ( st ) » 

return? 

} 


MOW  TYPE   c   TO  CONTINUE 


pic2a()   { 


char  *s 
color  (2 
block(0 
color(l 
strtxy( 
st="TYP 
strout ( 
return  J 
} 


ti 

); 

.0,0 
2); 

50.0 

E  c" 

st); 


/*  This  subroutine  is  displayed  if  a  mistake  is 
committed  by  the  user  on  the  instruction 
display   */ 


.0,100.0,100.0) ; 
,50.0); 


pic3()   f 

/*  This  subroutine  calls  for  the  display  to  be  set 
ut>  and  tells  about  the  purpose  of  the  system  */ 
char  *st; 
color(l); 

block(0. 0,0. 0,1 00. 0,100.0); 
ocean ( ) ; 
color(2); 

strtxy(10. 0,98.0); 
st="type  ==>  Continue,  Cuit"; 
strout (st ) ; 
strtxy(4.0,28.5); 
st="   This  system  is  designed  to  pick  up  frequency  changes 

in  the  ocean  and  determine"; 
strout (st ) ; 
st="whether  or  not  they  were  made  by  a  submarine  or  other 

vessel.   Assuming  there"; 
strout (st ) ; 
st="was  an  area(green  square)  in  the  ocean  where  you  wished 

to  watch  for  submarines,"; 
strout (st) ; 
st="all  that  would  be  necessary  are  the  two  arrays  of 

hydrophones  (1  and  2)  and"; 
strout (st); 
st="the  technique  to  analyze  theirtioutputs  .   For  better 

results  additional  arrays  can"; 
strout(st); 

st.="be  added,  for  instance  3."; 
strout (st ) ; 
return; 
} 
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ocean ()   { 

/*  This  subroutine  draws  the  "basic  display  of  the 

ocean,  area  under  surveilance,  land,  and  the 

arrays   */ 
char  *st> 
color(4) ; 

block ( 0.0, 29. 0,100. 0,90.0); 
landO; 
arrays( ) ; 
color (6) ; 

block (10. 0,60. 0,26. 0,80.0); 
return; 

} 


Draw 


arrays  */ 


land()   { 

color (5 ) ; 

block(84.0 

block(95.0 

block(S9.0 

block(92.0 

vector(89. 

vector (89. 

vector(89. 

vector(89. 

vector(84. 

vector(84. 

vector (64. 

vector (84. 

vector(82. 

vector (82. 

vector(82. 

vector(82. 

vector (83. 

vector(83. 

vector(83. 

vector(83. 

vector(97. 

vector(95. 


/*  Draws  the  land   */ 


,50.0 
,30.3 
,40.0 
,33.0 
0,42. 
0,40. 
0,40. 
0,40. 
0,50. 
0,50. 
0,50. 
0,50. 
0,67. 
1,67. 
2,67. 

u>  f  D  f  • 

0,84. 
0,84. 
0,34. 
0,84. 
0,29. 
0,30. 


,100.0, 

,100.0, 

,96.0,5 
,96.0,4 
0,64.0, 
0,84.2, 
0,84.4, 
0,84.6, 
0,82.0, 
0,82.2, 
0,82.4, 
0,82.6, 
0,83.0, 
0,83.3, 
0,83.0, 
0,83.0, 
0,81.0, 
0,81.2, 
0,81.4, 
3,81.6, 
0,95.0, 
0,92.0, 


90.0) 
55.3) 

1.0); 
1.0); 

53.3) 
50.0) 
50.0) 
53.3) 
63.0) 
63.0) 
63.0) 
63.0) 
73.5) 
73.5) 
73.5) 
73.5) 
93.0) 
90.0) 
90.0) 
93.3) 
30.0) 
33.0) 
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vector 

vector 

vector 

vector 

block 

block 

block 

vector 

block 

block 

block 

block 

block 

block 

vector 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

block 

return 

} 


(92.0,33. 
(92.0,33. 
(92.0,33. 
(92.0,33. 
82.8,78.0 
88.5,40.3 
82.8,57.0 
(92.0,33. 
97.0,29.0 
86.0,45.0 
83.0,58.0 
96.0,29.0 

96.5,29.0 
(97.1,29. 

xyO  •  D  ,  «J  1  .  £ 

92.7,32.0 
90.0,36.6 
91  .0,34.4 
87.2,42.2 
84.8,47.2 
82.0,62.7 
82.0,88.0 
82.5,66.0 
82.5,86.0 
83.5,53.0 
82.5,60.0 


0,69. 
0,89. 
0,89. 
0,69. 
,83.0 
,90.3 
,84.0 
0,89. 
,103. 
,90.0 
,86.0 
,98.0 
,98.0 
,98.0 
3,95. 
,96.0 
,98.0 
,94.0 
,94.0 
,90.0 
,88.3 
,85.0 
,85.0 
,84.3 
,84.0 
,85.0 
,84.0 


0,40.0 
2,40.0 
4,43.3 
6,40.0 
,30.0) 
,43.3) 
,60.0) 
3,40.0 
0,31.0 
,51.0) 
,90.0) 
,31.0) 
,31.0) 
,30.0) 
0,30.2 
,34.0) 
,34.0) 
,41.0) 
,41.0) 
,46.0) 
,51.3) 
,67.0) 
,90.0) 
,71.0) 
,89.3) 
,60.0) 
,65.0) 


); 
); 
); 
); 


); 
); 

» 

); 
» 

? 

t 


pic3K)   {   /*  Noise  display  */ 

char  *st; 

color(l) ; 

block ( 0.0,0. 0,1 00. 0,1 00.0 ) ; 

color(7); 

block (3. 3, 29. 0,1 00. 3, 93.3); 

col  or (2); 

st="type  ==>  Continue,  Distance,  Time,  Vrater(  temp) ,  Quit"; 

strtxy(13.3,98.3) ; 

strout (st ) : 

strtxy(4. 0,27.5); 

st="  Noise  is  what  we  are  attempting  to  detect  ir.  the  ocean, 

however  there  is  other"; 
strout (st ) ; 
st="noise  in  the  water.  This  detection  can  be  compared  to 

trying  to  lister,  to  a"; 
strout (st ) ; 
st="specific  person  at>(a  large  noisy  party.  The  majority  of 

noise  in  the  range" J 
strout(st) ; 
st="of  13Ez  to  430Hz  is  caused  by  other  vessels  in  the  water, 

probably  at  a  much"; 
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strput (st )  J 

st="larger  distance  and  thus 

received.  ; 
strout (st )  J 
color(0); 

vec tor (30. 0,40. 0,30.0, 80.0) ; 
vector (30. 0,40. 0,75. 0,40.0); 
vec tor (30. 0,45.0 ,75.0, 45.0) ; 
blOCk( 50. 0,45. 0,50.5,62.0); 
return? 
} 


a  much  weaker  signal  is 


pic32()   { 


char  *st> 
color(l); 
block(0. 0,90.0, 
hlock(0.0,0.0,l 
ocean( ) » 
color(7); 
block(15. 0,65.0 
color(0) ; 
vector(17.0,66. 
vector(17. 0,66. 
strtxy(24.5,48. 
st="500  miles"; 
strout (st ) ; 
strtxy(50.3,55. 
st="l200  miles" 
strout ( st ) J 
color(2 ) ; 
strtxy(10.0,98. 
st="type  ==>  Co 

,  Ouit"; 
strout (st) ; 
strtxy(4.0,28.5 
st="  Due  to  th 

detect  any 
strout(st ) ; 
st="very  large 
1200  miles  o 
strout (st ) ; 
st="be  relative 

diffusion  a 
strout (st ) » 
st="separations 

with  large 
strout (st ) ; 
st="dif ferences 

signal  at  t 
strout (st ); 
return;   } 


/*  This  display  discusses  the  problems  of 
large  distances  */ 


100.0,100.0)  ; 

00.0,28.0); 


,13.0,68.0)5 

5,27.0,33.0); 
5,80.0,35.0); 

0); 


0); 

? 

0); 

ntinue.  Noise,  Time,  Vater(temp),  Lines(tau) 


); 

e  mission  of  this  system  it  is  necessary  to 
vessel  at  a"; 

distance.  >(These  distances  ran  rar.^e  up  over 
r  they  can" J 

ly  short.   The  long  ranges  have  problems  of 
nd  large"; 

in  their  tau  lines.   While  using  two  arrays 
distance"  ; 

causes  problems  in  time  of  arrival  of  the 
he  various  arrays."; 
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pic321()  {  /*  This  subroutine  discusses  tau  lines  */ 

char  *st; 

color(l ) i 

block(0.0,0.0,100.0,100.0); 

color (4) ; 

block( 0.0, 29. 0,100.0, 90.0); 

color (6) J 

vector (72. 0,68. 0,72. 0,34. 9) 

vector (37. 6, 51. 4, 72. 0,51. 4) 

vector (37. 6, 75. 8, 49. 0,68. 6) 

vector (49. 0,68. 8, 61. 4, 62. 9) 

vector (61. 4, 62. 9, 72. 0,59. 8) 

color(S); 

strtxy(71.0,69.5); 

st=  —  a  ; 
strout (st ) ; 
strtxy(73.0,61.5); 
st="3  =>  500  tau  line"; 
strout (st)  J 
strtxy(73.0,53.5); 
st="l  =>  0  tau  line"; 
strout (st ) ; 
strtxy(71.0,36.5); 
st-"—  b"; 
strout (st ) J 
st="2"; 

strtxy(36.0,53.5)J 

strout (st  )  J 

strtxy(36. 0,78.0); 

st="4  ; 

strout (st ) ; 

strtxy(10. 0,98.0); 

color(2); 

st="type  ==>  Continue,  Noisett  Distance,  Time,  Water  (terrp) , 

Problemsftau  line),  Quit  J 
strout (st ) ; 
strtxy(4.0,28.5); 


st- 


Tau 


lines  are  just  measurement  lines  distinguishing 


the  time  arrival  of  the  ; 
strout (st ) ; 
st-"signal  at  two  dif  f  erenttiarrays .   If  arrays  A  and  B  are 

1000  miles  apart  then  a"; 
strout (st ) ; 
st="signal  produced  exactly  between  A  and  B  (point  1)  would 

arrive  at  both  arrays  at"; 
strout (st ) ; 
st="exactly  the  same  time.  Additionally  any  signal  produced 

on  line  1-2  would  arrive"; 
strout (st )  J 
st-"at  both  arrays  simultaneously.  In  the 

signal  produced  on  line  3-4"; 
strout (st ) ; 


same  manner,  any 
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st=  arrive  at  the 
in  all  cases ." 
strout (st ) ; 
return? 
} 


arrays  with  the  sarre  amount  of  time  delay 


subroutine  discusses  the  problerrs 
the  tau  lines  and  large  distances 


associated 
*/ 


pic3211()  { 

/*  This 
with 
char  *st» 
color(l); 

block (0.0, 0.0, 100.0 ,100.0); 
color(4); 

block(0. 0,29. 0,100.0,90.0); 
color(6): 

vector (72. 0,68. 0,72. 0,34. 9) 
vector (37. 6, 51. 4, 72. 0,51. 4) 
vector (37. 6, 75. 8, 49.0,68.8) 
vector (49. 0,68. 8, 61. 4, 62. 9) 
vector (61. 4, 62. 9, 72. 0,59. 8) 
vector (37. 6, 53. 7, 72. 0,53.1) 
vector (37. 6, 83. 3, 49. 0,74.0) 
vector (49. 0,74. 3, 60. 8,65. 8) 
vector (60. 8, 65. 8, 72. 0,61. 7) 
color(8) > 

strtxy(71.0,69.5); 
st="—  a"; 
strout (st ); 
strtxy(73.0,61.5); 
st="3  =>  500  tau  line"; 
strout ( st ) ; 
strtxy(73.0,53.5); 
st="l  =>  0  tau  line"; 
strout (st ) ; 
strtxy(71.0,36.5); 
st="—  B"; 
strout (st ) ; 

st="2"; 

strtxy(36.0,53.5); 
strout (st ) ; 
strtxy(36. 0,78.0); 
st="4'; 
strout (st ); 

st="225   rriles >"; 

strtxy(20. 0,81.0); 
strout( st ) ; 

st="65  iriles >"; 

strtxy(20. 0,54.0); 

strout (st ); 

strtxy(10. 0,98.0); 

color (2); 

st="type  ==>  Continue,  Noise,  Distance,  Time,  Water(  terrp ) " ; 

strout (st ) ; 

strtxy(4.0,28.5); 
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st=   Since  the  tau  lines  are  hyperbolic  in  shape,  another 

problem  arises  in  that  the'; 
strout  (st ) ; 
st="spacing  "between  any  two  lines  does  not  remain  constant. 

The  lines  at  points  1  and  3'  » 
strout  (st ) ; 
st="are  each  spaced  at  50  miles  apart.  The  lines  1-2  spread 

apart  to  65  miles  by  the"; 
strout (st ) ; 
st="time  they  reach  point  2,  whereas  the  lines  3-4  spread 

apart  to  225  miles  by  the  time"; 
strout (st ) ; 
st="they  reach  point  4.   This  variance  can  cause  drastic 

differences  in  the  accuracy"; 
strout (st ) » 
st="of  the  data  received,  depending  on  it's  position 

relative  to  the  arrays."; 
strout (st ) ; 
return; 
} 

pic33()   { 

/*  This  subroutine  discusses  the  problems  of  time 
delay  and  how  the  computer  solves  them   */ 
char  *st; 
color(l) ; 

block( 0.0, 90. 0,1 00. 0,100.0); 
block (0. 0,0. 0,132. 0,28.0); 
ocean( ) » 
color(0); 

vector (17. 0,66. 5, 27.0, 33.0); 
vector (17.0,66.5,80.0,35.0) ; 
strtxy(16.  0,70.0); 
st=  a  ; 
strout(st ) ; 
strtxy(24. 5,43.0); 
st="500  miles"; 
strout (st ) ; 
strtxy(50. 0,55.0); 
st="l200  miles"; 
strout (st ) J 
color(2); 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Noise,  Distance,  Water(temp),  Quit"; 
strout (st ); 
strtxy(4.2,28.5)  ; 
st="   Since  sound  travelsttat  2989  Kts.  (3400  miles/hour) 

through  the  water  you"; 
strout (st )  J 
st="can  approximate  it  as  travelling  at  1  mile  per  second. 

At  this  speed  it  would  take"; 
strout (st ) ; 
st="a  noise  particle  1200  sec.  or  20  minutes  to  travel  from 

point  A  to  array  2.  But"; 
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strput (st )  J 

st="it  would  only  take  8  minutes  for  it  to  travel  to  array 

3,  thus  arriving  12  minutes"; 
strput (st ) ; 
st="before  it  would  arrive  at  array  2.  This  difference  must 

be  accounted  for  by"; 
strput (st); 

st="the  algorithum  in  the  computer."; 
strout (st) ; 
return; 
} 

pic34()  { 

/*  This  subroutine  demonstrates  how  the  speed  of 
sound  travels  at  different  speed  depending  on 
temperature,  salinity,  and  depth   */ 

char  *st; 

color(l); 

block (0. 0,0. 0,100. 0,100.0); 

color(4) ; 

block (0.0, 29.0, 100.0,90.0) ; 

color(6) ; 

vector (41.0, 76. 0,63. 0,76.0); 

vector (41. 0,76. 0,41. 0,36.0); 

strtxy(34.0A77.8); 

st="   0  —  ; 

strout (st ) ; 

st="i000  — "; 

strtxy(34. 0,70.0); 
strout (st ) ; 
st="2000  — " ; 

strtxy(34. 0,62.0); 
strout ( st ) ; 
st="3000  — "; 
strtxy(34. 0,54.0); 
strout (st ) ; 

st="4000  — "; 

strtxy(34. 0,46.0); 

strout (st ) ; 

st="5000  — "; 

strtxy(34. 0,38.0); 

strout (st ) ; 

strtxy(39. 0,81.0); 

St="l475     1500      1525"; 

strout (st ) ; 

st-"  l      l       l"; 

strtxy(38.5,78.0); 
strout (st ) ; 

st="Velocity  (yards/sec)"; 
strtxy(40. 0,87.0); 
strout (st ) ; 
st="  Depth"; 
strtxy(24. 0,66.0); 
strout (st ) ; 


116 


) 


0,76.0 
4,74.2 
4,73.0 
6,70.2 
2,68.1 
0,66.0 
3,64.0 


,54.4,74.2) 
,54.4,73.0) 
,46.6,70.2) 
,44.2,68.1) 
,44.0,66.0) 
,44.3,64.0) 
,45.6,60.0) 
,58.0,36.0) 

); 


0,98.0 

=>  Continue,  Noise,  Time,  Distance,  Quit"; 


st=  (yards 
strout  (st ) 
color(S); 
vectcr(53. 
vector (54. 
vector (54. 
vector (46. 
vector (44. 
vector(44. 
vector (44. 
vector (45. 
color(2); 
strtxy(10. 
st="type  = 
strout (st ) 
strtxy(4.0 
st="The  ve 

salini 
strout (st) 
st="ln  the 

mainly 
strout (st ) 
st="salini 

factor 
strout (st ) 
st="rise  t 

increa 
strout (st ) 
st="the  ve 

are  no 
strout (st ) 
st="measur 

cause 
strout(st ) ; 
return; 
} 

plc4()   { 

/*  This  subroutine 
problems  are  in 
overcome  by  the 

char  *st ; 

color(l); 

block (0.0, 90. 0,100.0,100.0)  ; 

block( 0.0,0.0, 100.0, 28.0); 

ocean( ) ; 

color(7); 

block( 15. 0,65. 0,18. 0,68.0); 

color (0) ; 

vector (17. 0,66. 5, 27. 0,33.0) ; 

vector (17. 0,66. 5, 80. 0,35.0); 

strtxy(24.5,48.0); 

st="500  miles"; 

strout(st ) ; 


,26.5) 
locity 

ty,  an 

• 

first 
alter 

ty,  af 

.   As 

he  vel 

ses  du 

* 
» 

locity 

t  seve 

ement s 
inaccu 


of  sound  changes  as  the  water  temperature, 
d  depth  vary."; 

300  yards  from  the  surface  velocity  is 
ed  by  temperature  and"; 

ter  which  depth  (pressure)  is  the  main 
temperature  and  salinity"; 

ocity  of  sound  increases.   As  the  pressure 
e  to  the  depth,"; 

of  sound  also  increases.   These  variances 
re  but  when  the"; 

are  inntenths  of  seconds,  any  change  will 
racies ." ; 


shows  in  general  what  all  the 
the  environment  that  must  be 
system   */ 
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st=  1200  miles  ; 

strtxy(50. 0,55.0); 

strout  (st ) ; 

color(2); 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Noise,  Distance,  Tirre,  Water  (temp )"; 

strout (st ) ; 

strtxy(4.0,28.5); 

st="   There  are  several  problems  in  the  system  that  are 

difficult  to  overcome:"; 
strout (st); 

st="l)  The  distances  are  quite  large,  on  the  order  of  1220"; 
strout (st ) ; 
st="2)  Large  differences  in  distances  from  area  to  arrays 

cause  significant  time  delays."; 
strout (st ) ; 
st="3)  Differences  in  water  temperature  and  salinity  cause 

the  sounds  to  travel  at"; 
strout(st); 

st="   various  speeds."; 
strout(st); 

st="4)  Other  noises  are  always  present  in  the  ocean."; 
strout (st ) ; 
return; 
} 

pic5()   { 

/*  This  subroutine  shows  how  the  large  area  is 
broken  up  into  small  regions   */ 
char  *st; 
color(l); 

block( 0.0, 90. 0,100. 0,100.0); 
block (3. 3, 0.0, 130. 0,28.0) ; 
ocean( ); 
color(2) ; 

strtxy(10. 0,96.0); 
st="type  ==>  Continue,  Quit"; 
strout (st ); 
strtxyU.0,28.5) ; 
st=   These  large  distances  between  arrays  allow  the  system 

to  cover"; 
strout (st ) J 
st="a  large  area  of  ocean,  let's  say  400  miles  by  400  miles 

or  roughly"; 
strout  (st); 
st="the  size  of  Montana.  This  area  can  be  further  subdivided 

into  100  sectors,"; 
strout (st ) ; 
st="each  40  miles  square  to  make  the  tracking  easier.   Each 

of  these  sectors"; 
strout (st ) ; 

st="can  presently  be  covered  by  XXX  correlations  per  hour."; 
strout (st ) ; 
disectO; 
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color(l3); 

block (19. 6 ,64. 3 ,21. 0,66.0); 

color(0); 

st="400   rriles"; 

strtxy(14.0,S4.0); 

strout (st ) ; 

strtxy(27. 0,72.0); 

strout (st ) ; 

return > 

} 

disect()      {      /*    This   subroutine   disects    the   region   */ 

float    xl,x2,yl,y2; 

color(0) J 

x2=26.0; 

yl=60.0; 

y 2=80.0; 

for    (xl=10.0;xl<=27.0;xl=xl+1.6) 

vector(xl ,yl ,xl ,y2) ; 
xl=10.0; 
for  (yl=60.0;yl<=61.0;yl=yl+2.0) 

vector(xl ,yl ,x2,yl) ; 
return  J 
}    /*  End  of  segment  1   */ 
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#  This  is  the  third   section  of  the  tutorial  and  it  is  # 

#  set  up  in  the  same  manner  as  the  other  sections.  It  con-  # 

#  tinues  the  presentation  of  displays  and  allows  the  user  # 

#  to  see  the  overall  system  and  sore  of  its  fine  points.  # 

#  Many  of  the  parts  that  were  generated  in  the  first  part  # 

#  have  to  be  redone  in  this  section  due  to  the  forking  # 

#  technique  used  to  link  compiled  programs.  # 


main()   {   /*  section  three  of  the  tutorial  */ 

float  xfy,zi 

char  cc f cd f ce,*st ; 

int  j,wj 

ramtekO;   /*  initializes  the  Ramtek  system  */ 

writon(l ); 

colortable( ) J   /*  establishes  a  color  table  */ 

colort(10); 

pic5();    /*  area  breakdown  display  */ 

w=0J 

cc='z '; 

while  (cc=='z')  {    /*  while  #1  */ 
cc=retchar ( ) ; 

switch(cc)   {  /*  switch  #1  */ 

case  'c':  /*  Continue  */ 

pic6()»   /*  correlation  display  */ 
break; 

case  'r':  /*  Return  */ 
pstop( ); 

pic6()?  /*  correlation  display  */ 


cc='z '» 
break? 
default: 
cc=  z  » 
}    /*  end  switch  #1  */ 
}    /*  end  while  #1  */ 
cc-'z'; 

while  (cc=='z')   {    /*  while  #2  */ 
cc=retchar( ) ; 
switch(cc)   {     /*  switch  #2  */ 

case  'h':    /*  hydrophone  display  */ 
pic61(); 
cd='z'; 

while  (cd=='z')   {   /*  while  #3  */ 
cd=retchar( ) ; 
switch(cd)   {    /*  switch  #3  */ 

case  'a':    /*  array  pointing  display  */ 

pic6ii(); 
cc='z '; 


break; 
case  'e':    /*  ellipse  display  */ 
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pic62( )J 
ce='z'j 

while  (ce=='z')   {    /*  while  #4  */ 
ce=retchar( ) ; 

switch(ce)   {     /*  switch  #4  */ 
case  'c':     /*  Continue  */ 
if  (w==l) 

/*  If  combined  ellipses  display- 
has  been  presented,  skip  and 
display  pic8     */ 
pic8()J 


else 

pic7(); 

break; 
case  'e': 
pic621( ); 
w-i; 
cc='z'; 

break; 
case  'h ' : 
pic61()J 

cd-'i'; 

break; 
case  'r': 


/*  combined  ellipses  display  */ 


/*  hydrophone  display  */ 


/*  Return  */ 

pstop( ) ; 

pic6i()J   /*  hydrophone  display  */ 


=  z  f 
break; 
default : 
ce=  z  > 


}   /*  end  switch  #4  */ 
}    /*  end  while  #4  */ 


/*  Continue  */ 

/*  Return  */ 

/*  hydrophone  display  */ 


cc='z '; 

break; 
case  'c': 

pic7(); 

break; 
case  'r': 

pston( ); 

pic6i( ); 
=  z  ; 

break; 
defaul t: 

cd='z'; 
}    /*  end  switch  #3  */ 
}    /*  end  while  #3  */ 
break; 
case  'e':    /*  ellipse  display  */ 
pic62(); 
cd  =  'z '; 

while  (cd=='z')   {    /*  while  #5  */ 
cd=retchar( ) ; 
switch(cd)   {     /*  switch  #5  */ 

case  'e':    /*  combined  elipses  display  */ 
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pic62l( )J 

cc='z ' ; 
break; 
case  'h  : 
pic61(); 
ce=  z  J 


/*  hydrophone  display  */ 


while(ce=='z')  {  /*  while  #6  */ 
ce=retchar( ) J 

switch(ce)   {  /*  switch  *6  */ 

/*  Continue  */ 


case  'c' 


if  (w==l) 
pic8(  ); 

else 
pic7(); 

break; 


case  'a' 


/*   array  pointing  display  */ 

/*  ellipse  display  */ 

/*  Return  */ 
/*  ellipse  display  */ 


pic611( ); 

cc='z '; 

break; 
case  'e': 

pic62(); 
=  z  » 

break; 
case  'r': 

DStOT)(  ) ; 

pic62(); 

d*    *  • 
=  z  t 

break; 

default: 

ce=  z  ; 

}    /*  end  of  switch  #6  */ 

}    /*  end  of  while  #6  */ 

break; 

case  'c':    /*  Continue  */ 

if  (w==l) 

pic8(); 

else 

pic7(); 

break; 

case  'r':   /*  Return  */ 

pstop( ) ; 

pic62();    /*  ellipse  display  */ 

cd='z '; 

break; 

default: 

d*    *  • 
=  z  » 

}   /*  end  switch  #5  */ 

}    /*  end  while  #5  */ 

break; 

case  'c':   /*  Continue  */ 

if  fw==l) 

pic9(); 

else 
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pic?(); 

break; 
case  'r':    /*  Return  */ 
pstop( ); 
pic6()J    /*  correlation  display  */ 

CC=  Z  t 

break? 
default: 

cc  =  'z '; 
}    /*  end  switch  #2  */ 
}   /*  end  while  #2  */ 
if  (w==0)   {    /*  If  stmt  #1  */ 

cc='z ' ; 

while  (cc=='z')   {    /*  while  #7  */ 
cc=retchar( ) ; 
switch(cc)   {   /*  switch  #7  */ 

case  'm':    /*  draws  more  ellipses 
pic7a( ); 
color(l); 

hlock( 0.0 ,90.0, 100.0, 100.0); 
color(2); 

strtxy(10. 0,98.0); 
st="type  ==>  Continue,  Return'; 
strout ( st) ; 


cc='z '; 

break; 
case  'c': 

pic8(); 

break; 
case  'r': 

pstop( ); 

pic7(); 

cc=  z  » 

break; 
default: 

cc=  z  ; 


/*  Continue  */ 

/*  Return  */ 
/*  combined  ellipses  display  */ 


}    /*  end  switch  #7  */ 

/*  end  while  #7  */ 
/*  end  If  stmt  #1  */ 


} 
} 

else 
w=0; 
return; 
}     /*  end  main  section  of  segment  2  */ 


pstopO   { 

char  *st ,*sp, stop; 

»     tt  * 

sp=    ; 

color(ll); 

block (0.0,0. 0,100. 0,10 0.0); 

color(5) ; 

strtiy(45. 0.8C.0); 

st="D0  YOU*  ; 

strout(st);  strout(so); 
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st^  REALLY  ; 

strout(st);  strout(sp); 

st="WANT  TO"; 

strout(st);  strout(sp); 

st="  RETURN  TO"; 

strout  ("THE  MAIN"),'  strout(sp); 

strout ("PROGRAM?"); 

st="(y  /  n)"; 

strout ( st ); 

stop=retchar ( ) ; 

if  (stop=='y')   { 
color(0) ; 

block (0.3 ,0.0, 100. 0,100.0); 
exit( ); 


} 

return; 
} 


pic61()   {    /*  Hydrophone  display  */ 

char  *st; 

float  xl» 

color(l); 

block (0.0,0. 0,1 00. 0,1 00.0); 

color(7); 

block( 0.0, 29. 0,100.0,90.0); 

color(2); 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Ellipses,  Array  (pointing),  Quit  » 

strout (st ) ; 

strtxy(4. 0,27.0) ; 

st="   The  system  for  collecting  noise  data  is  an  array  of 

hydrophones,  roughly  2000  feet"; 
strout (st ); 
st="long  containing  60  passive  sonar  devices.   If  no 

adjusting  (pointing)  of  the  array"; 
strout(st ) ; 
st="is  done,  then  only  noise  waves  coming  in  at  the  array 

directly  abeam  of  the  array"; 
strout (st ) ; 
st="will  be  detected.   The  noise  arrives  at  the  array  in 

the  same  manner  that  a  wave"; 
strout (st) ; 
st="crashes  on  the  beach,  some  come  in  straight  and  others 

hit  at  an  angle"; 
strout (st ) ; 
color(12); 

bl ock (19. 0,37. 0,61.0, 39.0 ) ; 
color(0) ; 
for(xl=20.0;xl<30.5;xl=xl+1.0) 

block(xl,37.9,xl+0.2,38.1); 
strtxy(15. 0,80.0); 
stroutC'Noise") ; 
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strout 
strtxy 
strout 
vector 
vector 
strtxy 
strout 
arrows 
color( 
vector 
vector 
vector 
vector 
vector 
vector 
vector 
return 
} 


("Wave 
(54.0, 

("Beam 
(22.0, 
(22.0, 
(42.0, 
("HTDR 

(); 

13); 

(50.0, 
(50.0, 
(48.0, 
(48.2, 
(49.0, 
(51.0, 
(51.8, 


"); 

70.0); 

Pattern") ; 
76.0, 
52.0, 
35.5); 
OPEONE  array"); 


78.0,76.0); 
78.0,52.0); 


39.0,48.0,72.0) 
39.0,52.0,72.0) 
72.0,48.2,77.0) 
77.0,49.0,79.0) 
79.0,51.0,79.0) 
79.0,51.8,77.0) 
77.0,52.0,72.0) 


arrows ( ) 
color(0); 
strtxy(29, 
stroutC'V 
strtxy(29, 
stroutC'V 
vector (29, 
vector (38, 
vector (59, 
vector (69, 
vector (29, 
vector(3<? 
vector(59, 
vector (69 
return; 
} 


{ 

0,80.0) 
V 
0,56.0) 
V 
5,84.0, 
2,84.0, 
0,84.0, 
9,84.0, 
5,60.0, 
2,60.0, 
0,60.0, 
9,60.0, 


{ 


29.5, 
36.2, 
59.0, 
69.9, 
29.5, 
38.2, 
59.0, 
69.9, 


77.0) 
77.0) 
77.0) 
77.0) 
53.0) 
53.0) 
53.0) 
53.0) 


V 
V 


V); 
v"); 


pic611() 

char  *st; 
float  xi; 
color(l); 

block(0.0,0.0,100.0,100.0); 
color(7); 

block (0.0, 29. 0,100.0,90.0); 
color(2); 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Hydrophones,  Ellipses, 
strout (st) ; 
strtxy(4. 0,27.0); 
stroutC   In  order 
single  array, 
strout ( "capable  of 


Quit 


of  water  with  a 


to  cover  atlarge  area 
i  t  must  be" ) ; 

directing  its  beam  in  several  directions 
This  is  accomplished"); 
strout("by  using  a  time  delay  between  receiving  a  signal  at 
various  hydrophones."); 
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strout(    There   can   be   roughly  as    many   beam   patterns   as    there 

fiare  hydrophones   and    )J 
strout("the   beam   patterns   generally   overlap   so   as    to   cover 

the  enti  re  area ." ) ; 
color(12); 

block (39. 0,37.0 ,61.0,39.0); 
color(0)J 
for(xl=40.0;xl<60.5;xl=xl+1.0) 

hi ock(xl, 37. 9,xl+0.2,38.1) ; 
vector (50. 0,39. 0,48. 0,72.0); 
vector (50. 0,39. 0,52. 0,72.0) ; 
vector (48. 0,72. 0,46. 2, 77.0); 
vector (48. 2, 77. 0,49. 0,79.0); 
vector (49. 0,79. 0,50. 0,79. 3) » 
vector (50.0, 79. 3, 51. 0,79.0); 
vector (51.0, 79. 0,51. 8 ,77.0); 
vector (51. 8, 77. 0,52. 0,72.0) J 

/*  first  team  left  ♦/ 
vector (50. 0,39. 0,41. 7, 71.2); 
vector (41. 7, 71. 2, 41. 0,75.0); 
vector (41. 0,75. 0,41. 8,77.5); 
vector (41. 8, 77.5, 43. 2, 77.9); 
vector (43. 2, 77. 9, 44.6, 76.2); 
vector (44. 6,76. 2, 45. 7,72.4); 
vector (45. 7, 72. 4, 50. 0,39.0); 

/*  second  hear?  left  */ 
color(2) ; 

vector (50. 0,39. 0,44.9, 72.2); 
vector (44. 8, 72. 2, 44. 2, 76. 3); 
vec tor (44. 2, 76.0, 45. 5, 73.1 ) ; 
vector (45. 5, 78. 1,46. 0,73.4); 
vec tor (46. 0,78. 4, 47. 0,78. 2) ; 
vec tor (47. 0,78.2, 46. 2, 76.0); 
vec tor (48. 2,76. 0,48. 7 f 72.5 ) J 
vec tor (48. 7, 72. 5, 50.0,39.0); 

/*  second  beam  right  */ 
vec tor (50. 0,39. 0,5 1.5, 72.5); 
vec tor (51. 5, 72. 5, 52.0, 76.2 ) ; 
vector (52.0,76.2,53.2 ,78.4): 
vec tor (53. 2,78. 4,55.5, 78.0); 
vec tor (55. 5, 78. 2,56. 2, 75.0) ; 
vec tor (56. 2, 75. 0,55. 8, 72.3); 
vec tor (55. 8, 72.3, 50. 0,39.0); 

/*  first  bearr  right  */ 
color (0); 

vec tor (50. 0,39. 0,54.8,72.2); 
vector (54. 8, 72. 2, 56. 0,76.0) ; 
vec tor (56. 0,76. 0,57. 4, 77.9); 
vector (57. 4, 77. 9, 59. 2, 77.3); 
vector (59. 2,77. 3, 59. 6, 75.0); 
vec tor (59. 6, 75. 0,58. 7, 71.5); 
vec tor (58. 7, 71. 5,50. 0,39.0); 
return; 
} 
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colortable ( ) 

lnt    a  [16]  J 

a[0]    =   triple(0,0,0)» 

a[l]    =   triple(15,0,0); 

a  [2]    =   triple(0,15,0); 

a[3]    =   triple(0,0,15); 

a  [4]    =   triple(15, 5,0); 

a  [5]    =   triple(2,0,6); 

a  [6]    =  triple(0,10,0); 

a  [71    =   triole(2,6,10); 

a[8]    =   triple(6,10,2); 

a  [9]    =  triple(10,2,6); 

a  [101    =   triple    (13,5,2); 

a[ll]    =   triple(5,2,13); 

a  [121    =   triple    (2,13,5); 

a  [131    =   triple(15,0,15); 

a[l4]    =    triple(10,4,4); 

a  [151    =  triple(15,15,15) 

clrtbl(10,a); 

return; 
} 


{   /*  Establishes  a  new  color  table   */ 


/*  Draws  the  ocean  */ 


oceanO   { 

char  *st; 

color (4) ; 

block (0.0, 29. 0,1 00. 0,90.0) 

land( ); 

arrays ( ) ; 

color(6); 

block( 10. 0,60. 0,26. 0,80.0) 

return? 

} 


arrays()   {   /*  Draws  the  arrays   */ 

color(7); 

block (79.0, 84. 0,80. 0,79.0); 

block (25. 0,32. 0,29.0,33.0); 

vector (79. 0,33. 9, 82. 0,37.1) 

vector (79. 5, 33. 8, 82. 5, 37. 2) 

vector (79. 7, 33. 7, 82. 7, 37. 3) 

vector (80. 0,33. 6, 83. 0,37. 4) 

vector (79. 2, 33. 5, 82. 2, 37. 5) 

vector (79. 3, 33. 4, 82. 3, 37. 6) 

return; 

} 


land()   {   /*  Draws  the  land   */ 
color(5) ; 

block (84. 0,50. 0,1 00. 0,90.0) ; 
block( 95. 0,30. 0,100. 0,55.0); 


127 


block(89.0, 
block(92.0, 
(69.0 
(89.0 
(89.0 
(69.0 
(84.0 
(84.0 
(84.0 
(84.0 
(82.0 
(82.1 
(82.2 
(82.3 
(87.0 
(83.0 
(83.0 
( 83 . 0 
(97.0 
(95.0 
(92.0 
(92.0 
(92.0 
(92.0 
82.8, 
88.5 
82.6, 


vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

vector 

block 

block 

block 


vector(92.0 


block 
block 
block 
block 
block 
block 


vector(97.1 


block 
block 
block 
block 
block 
block 
block 
block 
block 
block 
block 
block 


97.0, 
66 . 0  , 
83.0, 
96.0, 
95.5, 
96.5, 


93.5, 
92.7, 
90.0, 
91.0, 
87.2, 
84.8, 
82.0, 
82.0, 
82.5, 
62.5, 
83.5, 
82.5, 


40.0, 
33.0, 
,40.0 
,40.0 
,40.0 
,40.0 
,50.0 
,50.0 
,50.0 
,50.0 
,67.0 
,67.0 
,67.0 
,67.0 
,84.0 
,84.0 
,34.0 
,64.0 
,29.0 
,30.0 
,33.0 
,33.0 
,33.0 
,33.0 
78.0, 
40.0, 
57.0, 
,33.0 
29.0, 
45.0, 
58.0, 
29.0, 
29.5, 
29.0, 
,29.0 
31.2, 
32.0, 
36.6, 
34.4, 
42.2, 
47.2, 
62.7, 
88.0, 
66.0, 
86. 0, 
53.0, 
60.0, 


96.0, 
96.0, 
,64.0 
,84.2 
,84.4 
,84.6 
,82.0 
,82.2 
,82.4 
,82.6 
,83.0 
,83.0 
,83.0 
,83.0 
,81.0 
,81.2 
,81.4 
,81.6 
,95.0 
,92.0 
,89.0 
,89.2 
,89.4 
,89.6 
83.0, 
90.0, 
84.0, 
,89.6 
100.0 
90.0, 
66.0, 
98.0, 
98.0, 
96.0, 
,95.0 
96.0, 
98.0, 
94.0, 
94.0, 
90.0, 
88.0, 
£5.0, 
85.0, 
84.0, 
£4.0, 
85.0, 
84.0, 


51.0) 
41.0) 
,50.0 
,50.0 
,50.0 
,50.0 
,63.0 
,63.0 
,63.0 
,63.0 
,73.5 
,73.5 
,73.5 
,73.5 
,90.0 
,90.0 
,90.0 
,90.0 
,30.0 
,33.0 
,40.0 
,40.0 
,40.0 
,40.0 
80.0) 
43.0) 
63.0) 
,40.0 
,31.0 
51.0) 
90.0) 
31.0) 
31.0) 
30.0) 
,30.2 
34.0) 
34.0) 
41.0) 
41.0) 
46.0) 
51.0) 
67.0) 
90.0) 
71.0) 
89.0) 
60.0) 
65.0) 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 

• 

» 
* 

); 
); 

> 

); 

t 

» 


return; 
} 


pic6()   { 

/*  This  subroutine  shows  how  two  arrays  cress  over 
to  cover  an  area  */ 
char  *st; 
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color(l); 

block(0. 0,90.0, 
block(0.0,0.0,l 
ocean( ) » 
color(2) J 
strtxy(10.0,98. 
st="type  ==>  Co 
strout (st ) J 
strtxy(4.0,28.5 
st="  A  correla 

cover  the  s 
strout (st )J 
st="ocear  (sect 

changes  mad 
strout (st ) ; 
st="in  which  th 

is  compared 
strout (st ) ; 
st="obtained  by 

correlation 
strout ( st ) » 
st="a  possible 
soid  shaped 
strout (st ) ; 
color(13); 
block(19.6,64.3 
color(0)J 
vector(27.0,33. 
vector(27.0,33. 
vector(80.0,34. 
vector(80.0,34. 
strtxv(22.0,70. 
st  =  "K  ; 
strout (st ) ; 
return; 
} 


100.0,100.0) ; 

00.0,28.0); 


0)' 

ntinue,  Hydrophones,  Ellipsoids,  Quit  ; 

); 

tion  takes  glace  when  two  different  arrays 
ame  area  of**; 

or  K).   An  array  picks  up  the  frequency 
e  from  the  direction"; 

e  hydrophone  array>tis  pointing  and  then  it 
tc  the  frequencies"; 

another  hydrophone  array.   If  there  is  a 
of  sounds,  then"; 

contact  is  made  somewhere  within  an  ellip- 
area  near  that  point."; 


,21.0,66.0); 
0,16.0,80.0); 

0,19.0,80.0); 

1,10.0,72.3); 
1,10.0,68.6); 

0); 


pic62()  { 

/*  This  subroutine  shows  how  the  tau  line  intersection 
will  determine  the  shape  of  the  ellipses   */ 
char  *st; 
color(l); 

b lock(0.0, 0.0,1 00.0,100.0 ) ; 
color(4) ; 

block ( 0.0, 29. 0,100.0, 90.0); 
color(l); 

block( 49. 0,29. 0,51. 0,90.0); 
color(7); 

vector (5. 0,80. 0,45. 0,35.0); 
ve c tor (5. 0,35. 0,45.0, 80.0 ) ; 
vector (65. 0,80. 0,60. 0,35.0); 
vector (80. 0,80. 0,65. 0,35.0) > 
color (6); 
vector (77. 0,70. 0,77. 0,45.0) J 
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vector(77.0,45. 

vector(76.0,42. 

vector(73.0,41. 

vector(69.8,42. 

vector(66.3,48. 

vector(69.3,70. 

vector(70.2,73. 

vector(73.2,74. 

vector(75.7t73. 

vector(30.9,64. 

vector (33.0,60. 

vector(32.8,54. 

vector(31.0,51. 

vector(27.5,48. 

vector(22.0,49. 

vector(19.3,51. 

vector(17.3,55. 

vector(17.3,60. 

vector (19.3,64. 

vector(23.2,66. 

vector(29.0,66. 

color(2)J 

strtxy(19.0,65. 

St="DIAGRAM  A. 

strout (st ) ; 

strtxy(10.0,98. 

st="type  Contin 

strout (st ) ; 

strtxy(4.0,29.5 

st="  When  a  co 

arrays,  the 
strout (st ) ; 
st="contact  is 
came  from  a 
s  t  r  ou  t  ( s  t ) ; 
st="water  gener 

B.  When  the 
strout( st )  > 
st="perpendicul 

which  will 
strout (st ) ; 
st="probabili ty 

relatively 
strout(st ) ; 
st="and  cause  t 

(causing  hi 
strout (st ) ; 
return; 
} 


0,76 
0,73 
0,69 
1,66 
0,66 
0,70 
2,73 
4,75 
0,77 
0,33 
0,32 
0,31 
0,27 
5,22 
0,19 
2,17 
3,17 
0,19 
0,23 
2,28 
1,30 

0); 


0); 


.0,42.0 
.0,41.0 
.8,42.1 
.3,48.0 
.3,70.0 
.2,73.2 
.2,74.4 
.7,73.0 
.0,70.0 
.0,60.0 
.8,54.0 
.0,51.0 
.5,48.5 
.0,49.0 
.3,51.2 
■  O i jj  >o 
.3,60.0 
.3,64.0 
.2,66.2 
.0,66.1 
.9,64.0 


DIAGRAM  B 


ue,  Ellipses  combined,  Hydrophones,  Quit  ', 

); 

rrelation  is  made  from  data  received  at  two 
n  an  area  of  probable"; 

determined.  The  probability  that  the  noise 
specific  region  of  "; 

ally  forms  ar  ellipse^  as  in  diagrams  A  and 
tau  lines  are  almost'; 

ar  the  the  ellipse  approximates  a  circle 
have  a  small  area  of  ; 

,  however  many  times  the  tau  lines  meet  at 
small  angles"; 

he  area  to  become  a  very  long  ellipse 
gh  uncertainty) .   " ; 


pic62l()   { 
/*  This 
char  *st; 
pic7(); 


subroutine  shows  how  ellipses  are  combined  */ 
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pic7a(); 

color(l); 

blocfc(0. 0,0. 0,100. 0,100.0); 

strtxy(4. 0,97.0); 

st="type  ==>  Continue,  Hydrophones,  Ellipsoids 

strout (st ) ; 

block (0.0, 0.0,1 00. 0,7.0); 

return? 

} 


Quit 


pic7()  { 

/*  This  subroutine  shows  how  ellipses  are  corrbined  */ 
char  *st; 
color(l); 

b 1 oc  k ( 0 . 0,0. 0,1 00 . 0,100.0); 
color (4) ; 

block(0.0, 29.0, 100. 0,90.0 ) ; 

color(0); 

vector(59.7,' 

vector(62.8, 

vector(66.0, 

vector(70.2, 

vector(72.8,' 

vector(72.2, 

vector  (69.0,' 

vector(46.0, 

vector (41 .0, 

vector(36.4, 

vector(33.2, 

vector(31.5, 

vector (31 .6, 

vector(33 .4, 

vector(3e.0, 

color(15); 

vector (46.0, 

vector(58.8, 

vector(62.0, 

vector(62.9, 

vector(60.2, 

vector (53.3, 

vector(42.0, 

vector (39.8, 

vector(39.6, 

vector  (42.0,i 

color(2) ; 

strtxy(10. 0,98.0); 
st="type  ==>  Continue, 
strout (st ) ; 
strtxy(4.0,28.5); 
st="   When  several  pieces  of 
specific  frequency,  then 
strout (st ) ; 
st="elipses  can  be  combined  to  reduce  the  area  of  probable 


,78.5 

,62.8 

,79.6) 

,79.6 

,6b.® 

,80.5) 

,80.5 

,70.2 

,78.1) 

,78.1 

,72.8 

,74.0) 

,74.0 

,72.2 

,68.2) 

,66.2 

,69.0 

,63.3) 

,63.3 

,46.0 

,47.5) 

,47.5 

,41.0 

,45.2) 

,45.2 

,36.4 

,44.2) 

,44.2 

,33.2 

,46.2) 

,46.2 

,31.5 

,50.0) 

,50.0 

,31.6 

,54.0) 

,54.0 

,33.4 

,58.2) 

,58.2 

,38.0 

,63.8) 

,63.8 

,59.7 

,78.5) 

,67.8 

,58.8 

,64.0) 

,64.0 

,62.0 

,61.0) 

,61.0 

,62.9 

,58.0) 

,58.0 

,60.2 

,55.4) 

,55.4 

,53.3 

,54.0) 

,54.0 

,42.0 

,56.8) 

,56.3 

,39.8 

,60.0) 

,60.0 

,39.6 

,64.3) 

,64.0, 

,42.0 

,67.0) 

,67.0 

,46.0 

,67.8) 

Quit 


data 
the" 


can  be  gathered  about  a 
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contact.   As  the  diagram   ; 
strput (st ) ; 
st="illustrates  the  second  set  of  data^forms  an  ellipse 

which  is  inside  the  first  ellipse."; 
strout (st ) ; 
st="Additional  data  cause^more  ellipses  to  he  formed  inside 

the  present  ellipses."; 
strput (st); 

st="   Type  'm'  to  see  how  more  ellipses  are  combined."; 
strout (st ) ; 
return? 
} 


pic7a() 
/■ 

char  *s 
color (0 
vector ( 
vector( 
vector ( 
vector ( 
vector( 
vector ( 
vector( 
vect or( 
vector( 
vector ( 
vector( 
sleep(2 
color (1 
vector ( 
vector( 
vector  ( 
vector( 
vector ( 
vector ( 
vector ( 
vector( 
vector( 
vector ( 
vector( 
sleep(2 
color (0 
vector ( 
vector( 
vector( 
vector ( 
vector( 
vector ( 
vector ( 
vector( 
vector ( 
strtxy( 


{ 

Draws  the  combining  ellipsoids  with  a  2  second 

between  ellipsoid  drawings   */ 


oause 
t; 
); 

48.8,64. 
52.2,66. 
55. 3, 66* 
56.4,64. 
56.0,62. 
54.4,59. 
49.2,56. 
47.0,55. 
45.2,55. 
43.7,57. 
44.3,60. 

); 

5); 

52.4,65. 
54.4,65. 
55.2,63. 
54.6,61. 
52.0,58. 
49.0,56. 
47.0,56. 
44.8,56. 
44.0,58. 
45.0,60. 
49.0,64. 

); 

); 

48.3 
50.3 
50.8 
50.0 
48.2 
47.5 
46.0 
46.2 
47.2 
48.4 


6,52.2 

0,56.4 
2,56.0 
0,54.4 
8,49.2 
0,47.0 
5,45.2 
4,43.7 
4,44.3 
2,48.3 


,66.3) 
,66.0) 
,64.2) 
,62.0) 
,59.8) 
,56.0) 

,55.4) 
,57.4) 

,60.2) 
,64.6) 


7,54 
0,55 
0,54 
2,52 
5,49 
5,47 
0,44 
4,44 
1,45 
2,49 
0,52 


.4,65.0) 
.2,63.0) 
.6,61.2) 
.0,58.2) 
.0,56.5) 
.0,56.0) 
.8,56.4) 
.0,58.1) 
.0,60.2) 
.0,64.0) 
.4,65.7) 


,62. 
,59. 

5G 
,57. 

c7 
,57. 
,59. 
,61. 
,62. 
,61. 


2,50.8 
3,50.8 
0,50.0 
2,48.2 
0,47.5 
2,46.0 
e,46.2 
5,47.2 
3,46.3 

0); 


,59.8) 
,58.0) 
,57.2) 
,57.0) 
,57.2) 
,59.6) 
,61.5) 
,62.0) 
,62.2) 
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st=  a  ; 

strout (st ) ; 
strtxy (10. 0,40.0); 

st="The  area  around  point 

strout (st ) ; 

return? 

} 


A  is  now  the  contact  area 


pic 
cha 
col 
bio 
col 
bio 
col 
bio 
bio 
bio 
bio 
bio 
bio 
bio 
bio 
bio 
bio 
vec 
vec 
vec 
vec 
vec 
vec 
vec 
vec 
vec 
vec 
col 
str 
st  = 
str 
st  = 
str 
str 
st  = 
str 
st  = 
str 
st  = 
str 
str 
st  = 
str 
st  = 
str 


8()  { 

r  *st; 

or(l); 
ck(0.0 
or(4); 

ck(0.e 

or(8); 
ck(5.0 
ck(5.0 
ck(5.0 
ck(12. 
ck(25. 
ck(40. 
ck(55. 
ck(50. 
ck(?2. 
ck(50. 
tor(5. 
tor(5. 
tor (5. 
tor(20 
tor(32 
tor(44 
tor(65 
tor(65 
tor(55 
tor(77 
or(2); 
txy(3. 

a  ; 

out ( st 

"r"; 

out (st 
out (st 

"a"; 

out (st 

"t"; 

out (st 

•  «     CI 

s  ; 

out (st 

txy(i3 

EAS 

out (st 

STAT 

out (st 


/*  This  subroutine  shows  the  overall  systen  */ 


,0.0, 100. 0,100.0); 


,29.0,100.0,90.0) J 


,40.0, 
,50.0, 
,60.0, 
0,48.0 
0,75.0 
0,73.0 
0,73.0 
0,45.0 
0,45.0 
0,32.0 
5,44.0 
5,54.0 
5,64.0 
.0,62. 
.0,80. 
.0,77. 
.0,73. 
.0,73. 
.0,45. 
.0,45. 


6.0,47 
6.0,57 
6.0,67 
,25.0, 
,32 .0, 
,48.0, 
,75.0, 
,60.0, 
,82.0, 
,75.0, 
,13.0, 
,13.0, 
,13.0, 
0,25.3 
0,44.0 
0,55.0 
0,55.0 
0,77.0 
0,65.0 
0,65.0 


.0); 
.0); 
.0); 

62.0) 

85.0) 

80.0) 

80.0) 

60.0) 

60.0) 

38.0) 

55.0) 

55.0) 

55.0) 

,80.0); 

,77.0); 

,77.0); 

,60.0); 
,60.0); 
,38.0); 
,38.0); 


0,68.0) ; 
); 

); 
); 

); 

)? 

); 

.0,60.0); 
e"; 
); 

TON"; 

); 


133 


correlator" 

surface"; 
plots"; 


strtxy(27. 0,82.0); 

st="ARC'  ; 
strout (st ) ; 
strtxyUl.  0,78.0)j 

st='  FILTER 

strout (st ) ; 

strtxy(52. 0,58.0); 

St="  PEAS 

strout (st ) ; 

St="  DATA 

strout (st ) ; 

strtxy(55. 0,36.0); 

St="    TRACKERS"; 

strout (st ) ; 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Techniques  (of  correlation), 

Parameters,  Quit  J 
strout (st ) ; 
strtxy(4.0t28.5); 
st="  A  brief  overview  of  the  entire  system  demonstrates  the 

amount  of  complex  machinery"; 
strout (st ) ; 
st="required  to  accomplish  this  surveilance.   Signals  are 

recieved  at  the  arrays  and  are"; 
strout (st ) ; 
st51"  transmit  ted  to  the  "base  station,  then  sent  via  satalite 

to  the  ARC.  In  the  ARC  the  data"; 
strout (st ) ; 
st="is  then  sent  through  filters  and  a  correlator,  where 

the  computer  establishes  two  sets"; 
strout (st ) ; 
st="of  data  (peak  data  files  and  surface  plots).  The  peak 

data  and  surface  plots  are  "; 
strout (st ) ; 
st="reviewed  by  the  trackers  to  determine  any  possible 

vessel  tracks."; 
strout (st) ; 
return; 
} 


pic5()   { 

/*  Same  subroutine  as  in  segment  1,  but  it  must  be 
redrawn  at  this  point  due  to  the  fork  process  */ 
char  *st; 
color(l); 

block (0.0, 90. 0,100.0,100.0); 
bl ock( 0.0, 0.0, 100.0, 28.0) ; 
ocean( ) ; 
color(2)J 

strtxy(10. 0,98.0); 
st="type  ==>  Continue,  Quit"; 
strout (st ) ; 
strtxy(4.0,28.5) ; 
st="   These  large  distances  between  arrays  allow  the  system 
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to  cover  ; 
strout (st); 
st="a  large  area  of  ocean,  let's  say  400  miles  by  400  rriles 

or  roughly"; 
st rout  (st); 
st="the  size  of  Montana.  This  area  can  be  further  subdivided 

into  100  sectors,"; 
s trout (st ) ; 
st="each  40  miles  square  to  make  the  tracking  easier.   Each 

of  thes  sectors  » 
s trout (st ) ; 

st="can  presently  be  covered  by  XXX  correlations  per  hour."; 
strout (st ) ; 
disectO; 
color(13); 

block ( 19. 6,64. 3, 21. 0,66.0); 
color (0); 
st="400  miles"; 
strtxy(14. 0,94.0); 
strout (st )  ; 
strtxy(27. 0,72.0); 
strout( st ) ; 
return; 
} 

disectO   { 
float  xl,x2,yl,y2; 
color (0); 
x2=26.0; 
yl=60.0J 
y2=80.0J 

for  (xl=10.0;xl<=27.0;xl=xl+1.6) 
vector(xl,yl ,xl,y2); 

xi=i0.0; 

for  (yl=60.0;yl<=81.0;yl=yl+2.0) 

vector(xl,yl,x2,yl); 
}     /*  End  of  segment  2  */ 
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#  This  is  the  fourth  section  of  the  tutorial  and  it  gives  # 

#  the  user  a  detailed  look  at  the  types  of  displays  that   # 

#  he  will  be  seeing  under  actual  operating  conditions.  It  # 

#  explains  specifics  to  vat^h  out  for,  whereas  the  senario# 

#  gives  only  a  very  "brief  explanation.   The  flow  of  the   # 

#  program  is  very  sirriliar  to  the  first  two  sections.     # 

main()   r    /*  rrain  of  the  fourth  section  */ 

float  x,y,zj 

char  cc ,cd ,ce,*st> 

int  samp,i; 

ramtek();   /*  initializes  the  Ramtek  system  */ 

writond  ); 

colortable( ) J    /*  establishes  a  new  color  table  */ 

colort(10) ; 

pic8(); 
cc='z ' ; 

while  (cc=='z')   {   /*  while  #1  */ 
cc=retchar( ) ; 

switch(cc)   {   /*  switch  #1  */ 
case  'c':   /*  Continue  */ 
pic9a();    /*  positional  data  display  */ 
break; 
case  'r':   /*  Return  */ 
pstop( ); 
picS()>   /*  overall  system  display  */ 
cc='z '; 
break; 
case  't':   /*  technique  display  */ 
pic81(); 

=  z  t 
while  (cd=='z')   {   /*  while  #2  */ 
cd=retchar( ) ; 

switch(cd)   {    /*  switch  #2  */ 
case  'c':    /*  Continue  */ 
pic9a(); 
break; 
case  'r':   /*  Peturn  */ 
pstop ( ); 
pic81();    /*  technique  display  */ 
=  z  J 
break; 
case  'f':    /*  formula  display  */ 
piceiK); 

cc='z'; 

break; 
case  'p':    /*  parameter  display  */ 

pic82(); 

cc=  z  » 

break? 
default: 
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cd  =  z  » 
}    /*  end  switch  #2  */ 
}   /*  end  while  #2  */ 
break; 
case  'p':   /*  parameter  display  */ 
pic82( ); 

cc=  z  ; 

break? 
default : 
cc=  z  » 
}    /*  end  switch  #1  */ 
}   /*  end  while  #1  */ 


cc  =  'z '  ~t 


/*   while  #?  */ 


while  (cc=='z')   { 

cc=retchar ( )» 

switch(cc)   {    /*  switch  #3  */ 
/*  Continue  */ 
/*  peak  data  display  */ 


/*  Return  */ 
/*  position  data  display  */ 


case  'c*: 
pic9b(  ); 

break; 
case  'r': 

pstop( ) ; 
pic9a(); 

cc=  z  ; 

break? 
default: 
cc=  z  » 
}   /*  end  switch  #3  */ 
}    /*  end  while  #7  */ 

cc=  z  ; 

while  (cc=='z')  { 
cc=retchar ( ) ; 

switch(cc)   {  /*  switch  #4  */ 

case  'c':   /*  Continue  */ 

/*  scores  display  */ 


/*  while  #4  */ 


pic9cf ); 
break; 
case  'r': 
pstop(  ); 
oic9b(); 
cc  =  'z'; 
break; 
default : 

cc='z ' ; 

}   /*  end  switch  #4  */ 
}   /*  end  while  #4  */ 
cc='z  '» 


/*  Return  */ 

/*  peak  data  display  */ 


while  (cc=='z')   {    /*  while  #5  */ 
cc=retchar ( )J 

switch(cc)   {    /*  switch  #5  */ 
case  'c':    /*  Continue  */ 
picl0()J    /*  surface  plot  display  */ 
break; 
case  'r':    /*  Return  */ 
pstop(  ); 
pic9c();    /*  scores  disolay  */ 
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CC=     Z     j 

break; 
default : 
cc=    z    > 
}        /*  end    switch   #5   */ 
}        /*   end  while   #5   */ 

cc='z'; 

sanrD=l  J 

while  (cc=='z')   {    /*  while  #6  */ 
cc=retchar ( ) ; 

switch(cc)   {    /*  switch  #6  */ 
/*  Continue  */ 
/*  covariance  matrix  display  */ 


/*  Return  */ 
/*  surface  plot  display  */ 

/*  sample  surface  plots  */ 


case   c  : 

picll(  ); 

break; 
case  *r*s 

T>stop( ); 
Dici0(); 

cc=  z  > 
break; 
case  's': 

if  (samp==l)   { 

pici0i(); 

samp=2; 

} 
else   { 

pici02(); 

samp=i; 
} 
cc='z '  i 
break; 
default : 
cc=  z  > 
}    /*  end  switch  #6  */ 
}    /*  end  while  #6  */ 
}     /*  end  main  of  section  3  */ 


pstopO   {   /*  Quit?  subroutine  */ 

char  *st ,stop,*sp; 

so="  "; 

color(ll); 

block( 0.0 ,3.0,100. 0,100.0); 

color (5) ; 

strtxy(45. 0,80.0); 

st="co  you"; 

strout (st)  > 
strout (sp) ; 
st="EEALLY"; 
stroutfst);  strout(sp); 
st="WANT  to"; 
strout ( st ) ; 
strout (so) ; 
st="  RETURN  TO"; 
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strout(st);  strou,t(sp); 

strout ("THE  MAIN  );  strout(sp); 

strout ("PROGRAM?"); 

st="(v  /  n)"; 

strout (st ) » 

stOT>=retchar  ( )  ; 

if  (stop==V)   { 
color(0); 

block (0.0, 0.0, 100. 0,1 00.0) ; 

exit(  ); 

} 

return  ; 
} 


colort 
int  a 
a[0] 
a  [11 
a  [2] 
a  [3] 
a  [41 
a  [51 
a  [61 
a  [71 
a  [81 
a  [91 
a  [101 
aLUl 
a  [121 

a  [131 
a  [141 
a  [151 
clrtb 
retur 
} 


ab 
[1 


K 

n; 


le<) 

el; 

tripl 

tripl 

tripl 

tripl 

tripl 

tripl 

tripl 

tripl 

tripl 

tripl 

triD 

trip 

trip 

triD 

trip 

trip 

10, a) 


{   /*  establishes  a  new  color  table  */ 


e(0,0 

e(15, 
e(0,l 
e(0,0 
e(15, 
e(2,0 
e(0fl 
e(2,6 
e(6,l 
e(10, 
le  (1 
le(5, 
le  (2 
le(15 
lefia 
le(15 


,0); 
0,0) 

5,0) 
,15) 
5,0) 

,6); 

0,0); 

,10); 

0,2); 

2,6); 

3,5,2); 

2,13); 

,13,5); 

,0,15); 

,4,4); 

,i*,i5); 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


black  */ 
blue  */ 
green  */ 
red  */ 

light  blue  */ 
maroon  */ 
bright  ^reen  */ 
peach  */ 
pail  green  */ 
purple  */ 
medium  blue  */ 
hot  pink  */ 
light  green  */ 
pink  V 

greyish  blue  */ 
white  */ 


pic8()  { 

/*  Redraws  the  display  of  the  overall  system  */ 
char  *stj 
color(l); 

block (0.0, 0.0, 100. 0,100.0) J 
color(4) ; 

block (0.0, 29. 0,100.0,90.0); 
color(8) ; 

block (5. 0,40. 0,6. 0,47.0); 
block (5. 0,50. 0,6. 0,57. 2); 
block (5. 0,60. 0,6. 0,67.0); 
block( 12. 0,49. 0,25. 0,62.0) 
block (25. 0,75. 0,32.0,35.0) 
block (40. 0,73. 0,48. 0,80.0) 
block( 55. 0,73. 0,75. 0,80.0) 
block (50. 0,45. 0,60. 0,6 0.0) 
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block (72. 0,45.0,82.0,60.0); 

b lock (50. 0,32.3, 75. 0,38.0); 
vec tor (5. 5,44. 0,13.0, 55.0 )  ; 
vector(5. 5, 54. 0,13. 0,55.0); 
vec tor (5. 5, 64. 0,13.0, 55.0 )  ; 
vec tor (20. 0,62. 0,25. 3, 60.0); 
vec tor (32. 0,90. 0,44.0, 77.0 ) ; 
vector (44.0,77.0,55.0,77.0); 
vec tor (65. 0,73. 0,55.0,60.0)  ; 
vector (65. 0,73. 0,77. 0,60.0); 
vector (55. 0,45. 0,65.0, 38. 0) ; 
vector (77.0, 45.0, 65. 0,38.0); 
color(2); 
strtxv(3. 0,68.0); 
st="A  ; 
strout (st ) ; 

st='V; 

strout (st ) ; 

strout (st ) ; 

st="A"; 

strout (st ) ; 
st="Y"; 

strout (st )  ; 

st="s"; 

strout (st ) ; 
strtxy(13. 0,60.0); 

st="  base"; 

strout (st ) ; 

st="  station"; 

strout (st ) ; 

strtxy(27. 0,82.0) ; 

st="APC"; 

strout (st ) ; 

strtxy(41. 0,78.0); 

St="FILTEB  CORRELATOR"; 

strout (st ) ; 

strtxy(52. 0,58.0); 

st="  PEAK  surface"; 

strout(st ) ; 

st="  DATA  PLOTS"; 

strout (s t ) ; 

strtxy(55. 0,36.0); 

st="   trackers"; 

strout (st ) ; 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Techniques  (of  correlation), 

Parameters,  Quit"; 
strout (st ) ; 
strtxy(4.0,26.5); 
st="  A  "brief  overview  of  the  entire  system  demonstrates  the 

amount  of  complex  machinery"; 
strput (st ) ; 

st=" required  to  accomplish  this  surveilance.   Signals  are 
recieved  at  the  arrays  and  are"; 
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strout (st ) ; 

st="transmitted  to  the  base  station,  then  sent  via  satalite 

to  the  ARC.  In  the  ARC  the  lata  ; 
strout (st )  i 
st="is  then  sent  through  filters  and  a  correlator,  where 

the  computer  establishes  two  sets"; 
strout  (st ) ; 
st="of  data  (peak  data  files  and  surface  plots).  The  peak 

data  and  surface  plots  are  "> 
strout (st ) ; 
st="reviewed  by  the  trackers  to  determine  any  possible 

vessel  tracks."; 
strout (st ) » 
return? 
} 


pic81()  { 

/*  This  display  explains  the  technique  used  in 
the  correlation  process   */ 
char  *st ,*sp; 
color (1); 

blocks 0.0, 0.0 ,100. 0,1 00.0) J 
color(0> 

block ( 0.0,0. 0,1 00.0, 90.0); 
color(2 ) ; 

strtxy(10. 0,98.0); 

st="type  Continue,  Formulas,  Parameters,  Quit"; 
strout  (st ) ; 

sP=   ; 

color (5) ; 

st="  STATEMENT  OF  THE  TECHNIQUE   "» 

strtxy(l0. 0,80.0); 

strout (st ) ; 

strout (sp ) » 

st="  Given  two  sequences  of  time  series  data,  a  function 

represents  the  "; 
strout (st) ; 
st="degree  of  match  of  the  two  time  series  as  a  function  of 

adjustment  of  the"; 
strout  (st ) ; 
st="delay  and  of  adjustment  of  the  relative  Toppler  ratio 

between  the  two  ; 
strout (st ) ; 
st="series.  The  term  "coherent'',  applied  to  this  function, 

implies  that"; 
strout (st ) ; 
st-"the  relative  phase  evolutions  of  the  time  series  are 

made  use  of  in"; 
strout (st ) ; 
st="determiring  the  degree  of  match,  rather  than  discarded 

as  in  an  incoherent"; 
strout (st ) ; 
st="calculat ion .   The  time  series  of  interest  to  us  are 
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finite,  discrete,  ; 
strout (st ) » 
st="f  requency-shif  ted ,  "band-limited,  complex  tire  series 

obtained  from"; 
strout(st); 

st="passive  sonar  sensors  (hydrophone  arrays)."? 
strout (st ) ; 
return? 
} 


picSllO  { 

/*  This  display  illustrates  the  formulas  used 
in  the  correlation  */ 
char  *st ,*sp» 
color(l); 

hi ock(0. 0,0. 0,1 00. 0,1 00.0); 
color(4) ; 

hi  ock( 0.0, 25. 0,100.0,90.5); 
color(2) ; 

strtxy(10. 0,98.0); 
st="type  ==>  Continue^  Techniques  (of  correlation). 

Parameters ,  Quit  » 
strout (st ) ; 

Ft        »* 

sP=   ; 

color (5) ; 
strtxy(5. 0,88.0); 

st="l)   X(a,t)  = X'(n)   X  (n-t/   T)e"; 

strout (st ) ; 

strout (sp)  J 

st*"2)   X' 

strout (st ) ; 

strout (sp) ; 

st="3)   A  = 

strout (st ) ; 

strout (sp ) ; 

st="  where 

strout (st ); 

st=" 

strout  (st ) ; 

st=" 

strout (st ) ? 

st  = 

strout (st ) ; 

st="x  and 

strout (st )  J 

st="         51  and  Y2   are  the  center  frequency  of  the 

passhand  for  the  time  series"; 
strout (st ) ; 
strtxy(5.0,36.4) ; 
st=         12; 
strout (st ) ; 
strtxy(5.0,90.2); 
st="  1   N-l  *     211i(a?l-F2)n   T"; 


n)  =  X  (an-(a-l)N/2)"; 

X'(n)  X  (n)       X  (tr-t/   T)X  (rr-t/   T)"j 

X(a,t)   is  the  modulus  correlation  coefficient"; 
a  is  the  relative  Doppler  ratio  compensation"; 
t  is  the  delay  compensation"; 
A  is  the  normalization  constant"; 
X  are  time  series  sampled  at  time  intervals  T"; 
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strou 

ft 

st  = 

strou 

strou 

ft 

st  = 

strou 

ft 

st  = 

strou 

st=" 

strou 

vecto 

vecto 

vecto 

vecto 

block 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vect  o 

vecto 

vecto 

vecto 

vecto 

vecto 

block 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

vecto 

strtx 

color 

st="T 

strou 
st="n 

o 
strou 

tt 

st=  s 

r 


t(st); 

t(st); 
t(sp); 
1 
t(st); 

2 

t(st); 


n=o 


N-l 


n=o 


t(st); 

r(9.0,84.5 
r(15.fi,84. 


r(23.0 

r(6S.0 


,9.0, 
5.15. 


82. 
82. 


(35.0,86.0,25.5,86.8) 
r(45. 0,85. 0,46. 5, 85.0 
r(45. 0,85. 0,45. 7,87.0 
r(45. 7, 87. 0,46. 5, 85.0 
r(64. 5, 87. 0,66. 0,87.0 
r(64. 5, 87. 0,65. 2, 89.0 
r(65. 2, 89. 0,66. 0,87.0 
r(51. 0,90. 2, 53. 0,90. 2 
r(45. 8, 65. 0,47. 3, 65.0 
r(45. 8, 65. 0,46. 5, 67.0 
r(46. 5, 67. 0,47. 3, 65.0 
r(58. 2, 67. 0,59. 0,65.0 
r(57. 5, 65. 0,58. 2, 67.0 
r(57. 5, 65. 0,59. 0,65.0 
r(13.5,67.5,17.0,67.5 
r(13.5,67.5,16.0,66.2 
r(13. 5, 65. 0,16. 0,66. 2 
r(13. 5, 65. 0,17. 0,65.0 
r(32.0,67.5,35.5,67.5 
r(32. 0,67. 5, 34. 0,66. 2 
r(32. 0,65. 0,34. 0,66. 2 
r(32. 0,65. 0,35. 5, 65.0 
(24.8,66.4,25.2,66.9) 
r(24. 0,87. 0,27. 5, 87.0 
r(24. 0,87. 0,26. 0,85. 8 
r(24. 0,84. 5, 26. 0,85. 8 
r(24.0,64.5,27.5,84.5 
r(71. 7, 35. 0,73. 3, 35.0 
r(71. 7, 35. 0,72. 5, 37.0 
r(72. 5, 37. 0,73. 3, 35.0 
y(4.0,22.5); 

(2); 

he  basic  c 
1  as  the  m 
t(st); 

orralized 
f  the  time 
t(st); 
amples.  Th 
ouDler  com 


88.2); 

8.88.2 


23. 

68. 


90.0 
90.0 


N-l 


m=o 


2  ; 


orrelation  structure  can  be  seen  in  equation 
odulus  of"; 

sum  of  products  (with  one  series  conjugated) 
series" ; 

e  other  two  equations  are  used  for  delay  and 
pensation" J 
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strout (st); 

st="of  the  time  series  prior  to  correlation."; 

st rout (st ) ; 

return? 

} 


pic82()  { 

/*  This  display  shows  the  various  parameters  that 
can  be  altered  to  get  a  better  picture   */ 
char  *st ,*sp; 
color(l); 

block (0.0, 0.0, 100. 0,i00.e ) ; 

color(4); 

block (0.0 ,29. 0,100. 0,90.0); 

color(2); 

strtxy(10. 0,93.0); 

st="type  ==>  Continue,  Techniques  (of  correlation),  Quit"; 

strout (st ) ; 

strtxy(16. 0,25.0); 

st="   Listed  above  are  a  few  of  the  various  parameters  that 

can  be"; 
strout (st ) ; 
st="adjusted  to  get  a  better  track  of  the  vessel.   Other 

parameters" ; 
strout (st ) ; 
st="are  demonstrated  throughout  the  tutorial  and  if  the 

limits  are"; 
strout (st); 

st="exceeded ,  the  computer  will  adjust  and  notify  you."; 
strout (st ) ; 
color(0); 

vector (43.0,76. 0,5 1.5, 76.0); 
strtxy(20. 0,80.0); 

st="  ranges"; 

strout (st ) ; 

st=" LONGITUDE  30.00-50.00"; 

strout (st ) ; 

st="LATIDUDE  150.00-130.30"; 

strout (st ) ; 

st="C0HERENCE  LIMIT       0.0-2.0"; 

strout (st ) J 

5 t=" TRACK  NUMBER  1-10"; 

strout (st ) ; 

st="RUN  NUMBER  1-7"; 

strout (st) ; 

St="REGI0N  NUMBER  1-25"; 

strout (st ) ; 

return; 

} 

pic9a()  { 

/*  This  display  shews  the  user  what  kind  of 

information  he  will  receive  when  he  actually 
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TRACK  NUMPER  9  ' 


uses  the  system   */ 
char  *st,cc,*stl ,*sp; 
color(l); 

block (0.0 ,0.0, 100. 0,100.0 ) J 
color (4) ; 
block(0.0, 29.0, 100. 0,90.0) J 

color(2); 

strtxy(13. 0,98.0); 

st-"type  ==>  Continue,  Quit"; 

strout ( st ) J 

color (5 ) ; 

strtxy(5. 0,66.0); 

stl="     RUN  NUMBER  6    REGION  NUMBER  6 

strout(stl ); 

sp=   ; 

strout(sp) ; 

(*   Shows  the  position,  course,  and  speed  of  a  vessel   */ 
st='Vater  Time    Peak    Position  Coordinates   Courses 
strout (st ) 
st="  23-Eeb-6 
strout (st ) 
strout (sp) 
st="  14:58 
strout (st ) 
st="  14:58 
strout (st  ) 
st="  15:04 
strout (st ) 
st="  15:14 
strout (st ) 
st="  15:38 
strout  (st ) 
st="  15:48 
strout (st ) 
color(2)J 
strtxy(4.0,28.5) ; 
st-"   This  data  illustrates  the  estimated  position,  course 

and  speed  of  a  susoected"; 
strout (st) ; 
st="vessel.   Depending  on  how  consistent  the  data  is,  the 

more  accurate  the  estimated"; 
strout (st ) ; 
st="position  probably  is.   For  example,  the  courses  and 

speeds  in  the  above  display"; 
strout (st ); 
st="are  relatively  close  together,  thus  the  data  is 

probably  from  a  vessel.   If  the"; 
strout (st ) ; 
st="courses  were  159.0,  135.6,  160.4,  122.7,  150.3  then  the 

data  would  probably  be"; 
strout (st ) * 

st="from  noise  in  the  ocean."; 
strout (st ) ; 
> 


-63 

Nurber 

Latitude 

Longi  tude 

Course 

03 

0 

39.5000 

147.5000 

0.0 

03 

3427 

39.4711 

147.4707 

142.0 

23 

3533 

39.4682 

147.4552 

154.7 

33 

3449 

39.4212 

147.4189 

153.9 

35 

3540 

39.3582 

147.4417 

160.3 

44 

3452 

39.3980 

147.4815 

161.6 
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Dic9b()  { 

/*  Shows  the  reference  stations  and  their  tau  and 
doppler  values  */ 
char  *st ,cc,*stl ,#sp; 
color(l); 

block(0 ,0,0.0, 100.0,100.0); 
color(4) ; 

block (0.0, 29. 0,1 00. 0,90.0) ; 
color(2)J 

strtxy(10. 0,98.0); 
st="type  ==>  Continue,  Quit*  ; 
strout ( st ) > 
color (5) ; 
strtxy(5. 0,86.0); 

stl="    RUN  NUMBER  6    REGION  NUMBER  6 
strout(stl); 

sp=   ; 

strout (sp) ; 

st="Peceipt  Tirre   Peak   tt-REF  Station- 

Peak  Data "; 

strout (st ) ; 

st="  20-Eeb-80    Number   STM/3M   ^rea 

TAU  DOPPLER  C-amma-Sq"  ; 
strout ( st ) 
strout (sp) 
st="  00:00 
strout (st ) 
st="  15:16 
strout (st ) 
st="  15:16 
strout (st ) 
st="  15:33 
strout ( st ) 
st="  15:50 
strout (st ) 
st="  16:07 
strout (st ) 
color(2); 
Strtxy(4.0,28.5); 
st-"  This  data  gives  you  the  sarre  peak  numbers,  the  array 

stations  that  received  the"; 
strout (st ) ; 
st="signals,  the  frequency  of  the  signal  and  peak  data.  The 

variances  in  the  tau  and"  ; 
strout (st ) ; 
st="doppler  values  can  give  evidence  as  to  the  validity  of 

the  track.  The  switching  of"; 
strout (st ) ; 
st="the  tau  values  from  -416.7  to  27.3  to  -412.8  ect .  reans 

that  the  ellipsoids  will  "; 
strout (st ) ; 
st="probably  combine  very  wellf<because  the  data  obviously 

is  being  collected  at  two  "; 


00 

0 

0 

0 

.00 

15 

3427 

1323324 

41. 

.40 

15 

3533 

1322031 

41. 

.40 

19 

3449 

1323024 

41 

.40 

23 

3540 

1322331 

41. 

.40 

27 

3453 

1323025 

41. 

.40 

TRACK  NUMBER  9  J 

-PRD  Station- 
STM/3M   Freq 

0   0.00 

1322029  41.40 

2411020  41.00 
1322033  41.40 

2411021  41.40 

1322030  41.40 
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Prob 

Score 

0 

.30 

-1 

.80 

-4 

.89 

.99 

-4 

.66 

-4 

.81 

— CHI  Square  Scores — 
Stagewise   Cumulative 


strout (st); 

st="dif ferent  sets  of  arrays."? 

strout (st )  J 

return  J 

} 

pic9c()  { 

/*  Shows  the  Chi-square  scores  for  the  various  data  */ 
char  *st  ,cc,*stl ,#sp; 
color(l); 

block(0. 0,0. 0,100. 0,100.0); 
color (4) ; 

block (0.0,29.0 , 100.0,90.0 ) ; 
color(2); 

strtxy(10. 0,98.0); 
st="type  ==>  Continue,  Cult"; 
strout (st )  J 
color(5 ) ; 
strtxy(5. 0,86.0) ; 

Stl="     PUN  NUMBER  6    REGION  NUMPEP  6    TRACK  NUMBER  9"; 
strout (stl ); 

sP="  "; 

strout (sp)  J 

st="Water  Time     peak 

strout (st ) ; 

st-"  23-Feb-80    Nurrber 

strout (st ) ; 

strout (si>) ; 

st="  14:58:03         0       0.00      0.0000      0.0000 

strout (st ) ; 

st="  14:58:03      3427 

strout (st ) ; 

st="  15:04:23      3533 

strout (st ) ; 

St="  15:14:30       3449       -3.9        0.4410 

strout (st ); 

st="  15:38:35      3540 

strout (st ) ; 

st="  15:48:44      3453      -4.81      2.0796      0.8527 

strout (st ) ; 

color(2) ; 

strtxy(4.0,28.5) J 

st="   This  data  shows  the  sane  peaks,  their  Chi  Square 
probabilities  of  actual  "; 

strout (st) ; 

st="position,  and  their  measured  residuals.   The  Chi  Square 
scores  are  broken  "; 

strout (st ) ; 

st="into  two  groups,  each  individual  score  and  the  cumula- 
tive total.   A  good  "; 

strout(st); 

st="check  as  to  the  probability  of  an  actual  contact  is  the 
cumulative  score,"; 

strout (st ) ; 
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st=  near  1 .0 
strout ( st ) ; 

return? 
} 


is  quite  good .  ; 


picl0()  J" 


char  *st ,* 

color(l); 

block(0.0, 

color(4) ; 
block(0.0, 
color(2); 
str$xy(10. 
st="type  = 
strout (st ) 
strtxy(4.0 
st="   By  e 

to  see 
strout (st ) 
st="that  w 
taken  w 
strout ( st ) 
st="surf ac 

( range 
strout ( st ) 
st="can  be 

when  t 
strout (st ) 
st="one  th 
strout (st ) 
color(7); 
block(40.0 
color(0) ; 
st="Region 
strtxy(5.0 
s trout (st ) 
st="Cohere 
strout (st ) 

st="— '  ; 
sP="  "; 

strtxy(38. 

strout (sp) 

strout ( st ) 

strout (sp) 

strout (st ) 

strout (sp) 

strout (st ) 

strout (sp) 
•» 

st=  1 
strout (st ) 
st="40.00" 


/*  This  display  explains  what  a  surface 
plot  will  look  like  and  show.   */ 
sp? 

0. 0,100. e, 100.0) ; 

29.3,100.0,90.3),* 

0,98.0); 

=>  Continue,  Samples,  Quit"; 

• 

,28.5); 

xarrining  a   surface   plot    the    tracker    may    oe   able 
a    pattern    of   peaks"; 

ould   establish   a   vessel's    track.      Care   rrust    be 
hen   viewing    the"; 

■ 

e  plot  displays  because  the  size  of  the  area 
of  latitude  and  longitude)"; 

• 

varied,  thus  giving  the  appearance  of  a  track 
here  might  not  be" ; 
» 
ere."; 


\ . 


,45.0,71.5,78.0); 

Number  6"; 

,73.0); 

. 

nee  Limits  1 .0"; 


5,80.7); 


i  ; 
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strtxy(32.5,75.7); 

strout(st) T 

strtxy(32.5,46.2); 

st ="38. 30  — "? 

strout (s  t ) ; 

strtxy(36.0,42.7); 

St="  147.2)0 

strout  (sO  ; 

circ(  ); 

return? 

) 


145.30"; 


ci 
ch 
A= 

S  = 

c= 

F= 
G  = 
H= 
J  = 
K  = 
L= 

CO 
St 
St 
St 
St 
St 
St 
St 
St 
St 

db 

St 
St 
St 
St 
St 
St 

db 
st 
st 
st 

db 

CO 

bl 
bl 
} 


rc()   (   /*  Traws  a  surface  plot 
ar  *A,*S,*D,*I,,*G,*I,*J,*K,n; 


*/ 


oo 
n 


o   0 
lor(0); 

rtxy(40. 0,80.0); 
rout (A); 
rout 
rout 
rout 
rout 
rout 
rout 
rtxy 
Iwid 
rout 
rout 
rout 
rout 
rout 
rtxy 
lwid 
rout 
rout 
rout 
lwld 


o 
0 


(s); 

(D); 
(f); 
«J); 
(h); 
(J); 

(40.0,77.0); 

(i); 

(D; 
(a); 
(H); 
(H); 
(H); 

(41.0,59.9); 

(0); 
(D; 
(K); 

(i); 
(0); 

lor(4); 

ock( 39. 0,76. 0,100.0,65.0); 

ock( ^1. 5, 44. 0,100. 0,85.0); 


picl01()  {   /'"Draws  another  surface  Dlot  sarple  */ 

char  *st,*s"o; 

color(l); 
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bloc k(0. 0,0. 0,1 00. 0,100.0); 

color (4)  ? 

block O.0, 29. 0,100.0,90.0); 

color(2); 

strtxy( 10. 0,98.0); 

st="type  ==>  Continue,  Samples,  Quit"; 

strouttst ) ; 

so=   ; 

strtxy(4.0,26.5) ; 

strout (sp) ; 

st="This  surface  plot  shows  a  very  probable  track,  pointed 

toby  the  a  rrow ." ; 
strout (st ) J 
st="Because  the  size  of  the  plot  is  relatively  small  (60 

miles  square)  and  the"; 
strout (st ) ; 
st="coherence  limit  is  relatively  high  (  1.0  ),  this  is 

probably  a  track  of  a"; 
strout(st); 

st="vessel  and  should  be  further  investigated."; 
strout (st ) ; 
color(7); 

block(40. 0,45. 0,?1.5, 78.0); 
color(0 ); 

st="Hegion  Number  23"; 
strtxy(5. 0,70.0) ; 
strout (st ) ; 

st="Coherence  Limits  1.0"; 
strout (st ) ; 
st=" — '  ; 
sn=   ; 

strtxy(36.5,60.7); 

strout (sp) 

strout (st ) 

strout (sp) 

strout (st ) 

strout (sp ) 

strout (st ) 

strout (sp ) 

st="  1 

strout (st ) 

st="39.00" 

strtxy(?2.5,75.7); 

strout (st ) 

strtxy(32.5,46.2); 

st="38.00  — "; 

strout (st ) » 

strtxy(36.0,42.7); 

St="  147.00  146.00"; 

Strout (st ) J 

circ2(); 

color(0); 

block (50. 4, 63. 0,51. 0,87. 2); 

vector (50. 7,79. 0,49. 4, 63.0); 
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vect or (50. 7,79.0, 52.0,83.0 ) ; 

return? 

} 


cir 

cha 

cha 

cha 

sp= 

A=* 

S=" 

D=" 

F  = 

G=" 

R= 

J=" 

tt 

K= 

if 

L  = 

col 

str 

str 
str 
str 
str 
str 
str 
str 
str 
dbl 
str 
str 
str 
str 
str 
str 
dbl 
str 
str 
str 
dbl 
str 
str 
str 
str 
str 
str 
str 
str 
str 
str 
dbl 
str 
str 
str 


c2() 

r  r ; 


{   /#  Drawing  a  surface  plot  */ 


*sp,*st; 

*A,*S,*B,*F,*G,*H,*J,*X,*LJ 


0 


oc 
0 


0 


0 
or(3); 

txy 


out 
out 
out 
out 
out 
out 
out 
txy 
wid 
out 
out 
out 
out 
out 
txy 
wid 
out 
out 
out 
wid 
txy 
out 
out 
out 
out 
txy 
out 
out 
out 
txy 
wid 
out 
out 
out 


40.0,80.0); 
A. 

S 

D 
y 

G 

v 

J 
43.0,77.0); 

1 

L 

A 

H 

L 

L 

41.0,59.9); 

0 

r 

K 
L 

0 

42.0,72.0); 
G 

G 
S 

n 
\J 

40.0,76.0); 

G 

S 

A 

40.0,75.0); 

1 

v 

ij 

h); 
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strout(L^; 

st="  Oo"; 

strtxy(47. 0,82.0); 

strout (st 

strout (st 

strout (sp 

strout (st 

strout (sp 

strout (st 

strout (st 

color (4 )» 

dblwid(0); 

block (39. 0,78. 0,100. 0, 85. 0)  ; 

block (71.5, 44. 0,100. 0,85.0); 

} 


piclK)  { 

/*  This  display  shows  the  covariance  matrix  and  then 
asks  the  user  if  he  wishes  to  rove  on  to  the 
Senario  or  redo  the  tutorial   */ 
char  *st  ,cc,*stlf*ST3? 
color(l); 

b lock (0.0, 0.0, 100. 0,1 00.0 ) ; 
color(4) ; 

bl ock( 0 . 0 , 29 . 0 , 100 . 0 , 90 . 0 ) J 
color(2); 

strtxyd  0.0,98.0); 

st="type  Continue,  Senario,  Tutorial  (again),  Cult"; 
strout (st ) ; 
strtxy(5. 0,88.0) J 
c  o  1  o  r  ( 5  ) ; 

stl="     PUN  NUMBER  6    REGION  NUMBER  6    TRAC?  NUMBER  9"; 
strout (stl  ); 


std=   ; 

st=" Water  Tine 

peak 

_        frCTTfi'DTAMPP 

• 

UUv  Ait  IAIN uJj 

r.A.  ir.  I  Z.*"*~  — ~—  — 

strout (st ) ; 

9 

st="  23-Feb-80 

Nurrber 

• 
> 

strout (st ) ; 

strtxy(5.5,73.3); 

st="  14:56:03 

3427 

0.03136 

0.00000 

strout (st ) ; 

st=" 

0.00000 

37.88962 

strout (st ) ; 

st-" 

-0.03150 

0 .00000 

strout (st ) J 

st=" 

0.00000 

-46.49765 

strout (st ) ; 
strtxy(5.5,49.3) ; 

st="  15:04:23 

3533 

0.00985 

0.00047 

strout (st ) ; 

st=" 

2.00047 

0.31107 

strout (st ) ; 
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st=  3.00551       0.00178 

strout (st ) ; 

5t="  -0.00001       0.19371 

strout(st) ; 

color(2); 

strtxy(4.0,28.5); 

strout (sp) ; 

st="   This  display  illustrates  the  covariar.ee  matrices  which 

can  he  used  to"; 
strout (s  t ) ; 
st="deterrnine  how  accurate  the  estimated  courses  and  speeds 

are.   An  experierced" ; 
strput(st); 
st="tracker  could  determine  this  "by  examining  each  4X4 

matrix,  however  this  is"; 
strout(st)? 

st="dif f icult  and  thus  will  be  handled  by  the  corputer."; 
strout (st ) J 
return; 
} 


picl02()  { 

/*  This  subroutine  draws  another  surface  plot 
char  *st ,*sp; 
color(l); 

hi ock(0. 0,0. 0,1 00. 0,1 00.0); 
color(4) ; 

block(0. 0,29. 0,100. 0,90.0) J 
color(2) ; 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Samples,  Quit"; 
strout (st ) ; 
color(7); 

block (40. 0,45. 0,71.5,78.0); 
color(0) ; 

st="Re^ion  Number  3"; 
strtxy(5. 0,72.0) ; 
strout (st ) ; 

st="Coherence  Limits  0.7"; 
strout (st ) ; 

ft     tf 

st=  —  ; 

fft        »» 

sP=    ; 

strtxy(38.5,83.7); 
strout (sp) 
strout (st ) 
strout (sp) 
strout (st ) 
strout ( sp) 
strout (st ) 
strout (so) 
st="  1  * 
strout (st ) 
st="40.00" 
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strtxy(32.5,75.7); 

strout  f st ) ; 

strtxy(32.5,46.2); 

st="33.00  — "; 

strout (st ) ; 

strtxy(36.0,42.7); 

St="  147.00 

strout (st ) ; 

color (0) > 

circ(); 

circ2( ); 

circ3(); 

return? 

} 

circ3()   { 

char  *0,*Vf*Ef*Ht*T; 

0=^    oo     0 
W="  o   0    o    o 
E="   0      Oo    0 
R="    o      o   0 
T="  0   0      0 
strtxy(40.2,79.8); 
color(0 ) 


strout 

strout 

strout 

strout 

strout 

strtxy 

strout 

strout 

strout 

strout 

strout 

dblwid 

strout 

strtxy 

strout 

strout 

strout 

strout 

strout 

strtxy 

strout 

strout 

strout 

strout 

strout 

dblwid 

color(4) 

Dlock(39 

block(71 

return? 


C 

w 

v 

R 

T) 

40 


E 

P 

E 

E 

R 

1 

W 

40 

T 

C 

w 

w 

p 

41 

E 

W 
E 

T 
P 
0 


9,81.0); 


0,78.0); 


0,78.7); 


140.03"; 


0,76.0,100.0,85.0); 
5,44.0,100.0,85.0); 
} 
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#  This  section  of  code  is  designed  to  give  the  user  prac-  # 

#  tice  visualizing  the  types  of  data  that  will  be  presented* 

#  in  the  actual  tracking.  It  is  basically  set  up  to  run  # 

#  four  types  of  data  depending  on  the  parameters  that  the  # 

#  user  tries  to  use.  Each  display  ?ives  the  examples  and  # 

#  then  tells  the  user  what  the  problem  areas  might  be,  if  # 

#  there  are  any.  This  is  the  fifth  section  of  the  main  # 

#  program  but  can  be  called  up  by  itself  by  typing  Senerio  # 


int  choicetcont ,  run ,  region, track, c oner, lath, latl, longh,longl ; 
char  *srun  ,*sregi on, *st rack, *sc oner, #slath  ,*slatl  ,*slongh; 
char  *N,*B,*M,*Q,*W,*E,*R,*T,*Y,*slongl ,*top; 

/*  Setting  global  values  because  they  are  used  in 
many  of  the  displays   */ 

main()   {   /*  Senerio  section  of  program  */ 
char  cc; 

ramtek();    /*  initializing  the  Ramtek  subroutines   */ 
writon(l); 

changcolor ( ) ;   /*  Establishing  a  new  color  table  */ 
colort(10)5 

t op="type==>Menu ,  Location,  Peak,  Accuracy,  Surface,  Quit"; 
/*  Setting  a  global  string  that  gets  displayed  at  the 
top  of  the  majority  of  the  displays   */ 
cont=i; 
sregipn="l0"; 
srun="6''>;  m 
strack=t"2'*  1  n 
scoher="l .0" J 

slath="35.45'";   /*  initializing  global  values  */ 
slatl="35.00"; 
slongh="l25.45"; 
slongl="l25.00"'; 
senm( ) ; 

while  (cont==l)   {   /*  while  #1  */ 
cc=retchar( ) ; 
switch(cc)   {   /*  switch  #1  */ 

/*  Switching  of  the  displays  dependent  on  the  desires 
of  the  user  at  the  keyboard   */ 
case  'm':   /*  displays  the  menu  */ 
senm( ) > 
break; 
case  'p':   /*  displays  peak  data  */ 
senp( )> 
break; 
case  '1':   /*  displays  positional  data  */ 
senl(); 
break; 
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/*  displays  the  accuracy  data  */ 
/*  displays  the  surface  plots  */ 
/*  Return  */ 


} 


case  'a': 

sena( )' 

break? 
case  's ' : 

sens (  )J 

break; 
case  'r': 

pstop( ) ; 

break? 
default : 

cont=l ; 
}   /*  end  of  switch  #1  */ 
}   /*  end  of  while  #1  */ 
/*  End  of  Main  */ 


senrr( )   {     /*  This  display  presents  a  nenu  of  paraneters 

that  can  be  altered  by  the  user  to  get  a 
better  view  of  the  situation  */ 
char  *st,*sp» 
color(7); 

block (0.0 ,0.3,100.0,1 00.0); 
color(10); 

block( 0.0 ,90. 0,100.0, 100.0) ; 
color(5) ; 

strtxy(10. 0,97.0); 

st="type  in  the  desired  numbers  or  zeros."; 
strout (st ) ; 
strtxy(6. 0,86.0) ; 
st="   There  are  a  number  of  parameters  that  you  can  change 

to  survey  different  tracks,"; 
strout (st ) ; 
st="runs,  and  regions.   The  limits  are  listed  along  with  the 

present  value  of  the"; 
strout (st ) ; 
st="parameter .   When  the  block  appears  to  the  right  of  the 

present  value,  just  type"; 
strout (st) ; 
st="in  the  value  desired  followed  oy   <cr>  (if  the  present 

value  is  okay  type   0  <cr>)."; 
strout (st ) ; 

ft     <  • 

sP=   ; 

strout (sp) ; 

strtxy(15. 0,58.0); 

St="     LIMIT  PARAMETER 

NEW  value"; 
strout (st ) ; 
strout ( sp) ; 

st="     1-25  REGION 

strout (st ) ; 

St="      1-7  RUN 

strout (st ) ; 
St="      1-10  TRACK 


PRESENT  VALUE 
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strout (st ) ; 
st="   0.1-2.0 
strout (st ) ; 
st="  30.00-50.00 
strout (st ) ; 
st="  30.00-50.00 
strout (st ) ; 
St="l20. 00-140. 00 
strout (st ) ; 
St="l20. 00-140. 00 
strout (st ) ; 
strtxy(57.0,48.5); 
strout (sregion) ; /* 
strout ( srun) ; 
strout  (strack) ; 
strout (scoher) ; 
strout (slath ) ; 
strout (slatl) » 
strout (slongh) ; 
strout  (slongl ); 
newvalO;       /* 

senrna(  ) ;    /*  calls 
if  (coher<=07)   { 


if  ( (lath-latl)  <= 

choice='c '» 
else 

choice='b'; 

} 

dse   { 
if  ((lath-latl)  <= 

choice='d '; 
else 

choice='a  '» 


COHERENCE 
LATITUDE(high) 
LATITUDE (low) 

LONGITUDE(high) 
LONGITUDE (low) 

Prints  out  present  values  of  parameters*/ 


calls  the  subroutine  that  checks  the 
values  being  inserted  by  the  user   */ 
for  a  new  display  */ 
/*  Establishes  what  set  of  displays 
be  presented  based  on  the  values 
were  just  inputted  by  the  user 
100) 


will 
that 


100) 


senmaO   {   /*  This  displays  the  basic  parameters  and  then 

allows  the  user  to  continue,  quit,  or  change 
the  parameters.   */ 

char  *sp,cc,*st; 

color(7}; 

block(0.0,0.0,100.0,100.0); 

color(10); 

block (0.0, 90. 0,1 00. 0,103.0); 

color(5 ) ; 

strtxy(5. 0,97.0); 

strout ("tyoe  ==>  Continue,  Menu,  Quit"); 

sp="  "; 

strtxy(25. 0,60.0) ; 
St="RUN  NUMBER    "j 
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st rout (st ) ; 
strout (sp) » 

St="REGION  NUMBER     J 
strout (st )  J 
strout (sp) > 
St="TRACK  NUMBER    "? 
strout (st ) ; 
strout (sp) ; 

st="COHERENCE  LIMIT    ' J 
strout (st ) ? 

cc='z '; 

while  (cc=='z')  { 
cc=retchar ( ) ; 
switch(cc)   { 
case  'c':    /*  Continue  */ 
senlO; 
break; 
case  'n':    /*  displays  the  menu  •/ 
senm( )  J 
break; 
case  'q':    /*  Quit  */ 
pstop( ) ; 
break; 
default: 

cc='z '; 

} 
} 
} 


pstop()  {    /*  This  display  is  presented  anytime  the  user 

types  'q   and  then  finds  out  if  he  really 
wants  to  quit.    */ 

char  *st ,*sp ,cb; 

color(3) ; 

block (0. 0,0. 0,100. 0,100.0) » 

color(2) ; 

st)="  "; 

strtxy(46. 0,80.0) ; 

st="Do  you"; 

strout (st ) ; 
strout (sp) ; 

st="REALLY" ; 

strout (st ) ; 

strout (sp) J 

st="WANT  to"; 

strout (st ) ; 

strout (sp) ; 

st=" RETURN  TO"; 

strout ( st ) ; 

strout (sp) ? 

stroutC'THE  MAIN");  strout(so); 

strout ("PROGRAM?") ; 

st=  (y  /  n)  ; 
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strout (st ) ; 
cb=retchar  ( )  ; 

lf(cb«-V)   { 

cont=0;   /*  Sets  global  value  to  quit  senario  */ 

color(0); 

block(0. 0,0. 0,100. 0,100.0); 

} 

else 
senlO; 

} 


newvalO   {   /*  This  subroutine  receives  the  inputs  of  the 

user  for  the  changing  of  the  parameters, 
evaluates  them,  rejects  any  that  exceed 
the  limits,  and  then  inserts  decimal  points 
where  necessary.    */ 
t  ,tcoher , tregion, trun , t track, t lath, tlatl, tlongh , tlonglj 


mt 

t=0; 

whil 

colo 

bio 

str 

colo 

tre 

if 

if 

i 

r 

t 

} 

els 

t  = 

} 

els 
t  = 
} 

t=e; 

whil 

colo 

bio 

str 

colo 

tru 

if 

if 

i 

r 

t 

} 

el 

t 

} 

els 


e  (t==0)   { 

r(15); 

ck(73. 0,45. 0,88. 0,50.0) ; 

txy(74. 0,49.0); 

r(5); 

gion=getnum( 10) ;   /*  changes  the  region  number 

(tregion  !=  0)   { 

((tregion  <=  25)&&(tregion  >=  1))   { 
toa (sregion , tregion) ; 
egion-tregion; 

=i; 


e 

0; 

e 

i; 


e  (t 
r(15 
ck(7 
txy( 
r(5) 
n=ge 
(tru 
((t 
toa( 
un=t 

=i; 

se 
=0; 


==0)  { 
); 

3.0,39.5,86.0,45.0); 
74.0,43.0); 

tnum(10);   /*  changes  the  run  number 

n!=0)   { 

run<=7)&S.(trun>=l))   { 

srun, trun) ; 

run; 
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t=i; 

} 
t=a; 

while(t==0)   { 
color(15)» 

Dlock(73.3,34.0,88.0,39.0) ; 
strtxy(74. 0,38.0) ; 
color(5 ); 
ttrack=getnum( 10) ;   /*  changes  the  track  nurr.Der  */ 
if (ttrack!=0)   { 
if  ((ttrack<=10)&S.(ttrack>=l)  )   { 
itoa (s track, t track) ; 
track=t  track; 

t=i; 

}. 

else 

t=0; 

} 

else 

t=i; 
} 
t=0; 

while(t==0)      { 
color(15); 
block (73.0 ,27.5,88.0, 33.5); 
strtxy(74.0,33.2) J 
color(5 ) ; 
tcoher=getnum( 10) ;      /*   charges    the   coherence    limit    */ 
if    (tcoher    !=  0)      { 
if ((tcoher<=20) &&( tcoher >=01 ) )      { 
itoa(scoher, tcoher); 
coher=tcoher; 
scoher  [4] =scoher  [3] ; 
scoher  [3]  =scoher[2]  ; 
scoher  [2]  =  '. ';      /*   inserts   a   decimal    ooint    */ 

t-i; 

} 

else 

t=0; 

} 

else 

t=i; 

} 

t=0; 

vhile(t==2)   { 
color(15); 
Dlock( 73.0, 23. 0,88. 0,28.0); 
strtxy(74.0,28.3) ; 
color(5) ; 
tlath=getnum(10);   /*  changes  the  high  latitude  value  */ 
if(tlath!=0)   { 
if ((tlath<=5000)&&(tlath>3000))   { 
itoa (slath,tlath); 
lath=tlath; 
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=  slath[4]  ; 
=slath[3j; 


slathf6]=slath[5] 

slath[5 
slathf4 
slath[3] 

t=i; 

} 
else 
t=0; 

} 
'lse 


/*  inserts  a  decimal  point  */ 


} 
t  = 

wh 

CO 

b 

s 

CO 

t 

i 


0; 
ile 
lor 
loc 
trt 
lor 
lat 
f(t 
if( 
/ 

it 
la 
si 
si 
si 
si 
t  = 

} 

els 
t  = 

} 

'lse 
t=l 


(t  = 
(15 
k(? 

xy( 

(5) 

l=g 

lat 
(tl 
*  M 
h 
oa  ( 
tl  = 
atl 
atl 
atl 
atl 
i; 

e 
0; 


=0)   { 

); 

3.0,17.5,88.0,23.5); 

74.0,23.3); 


/*  changes  the  low  latitude  value  */ 


etnum(10); 

1 ! =0  )   { 

atl<5000)&&(tlatl>=3000)5,S,(tlatl<tlath)) 

akes  sure  that  latitude  low  is  less  than 

igh  latitude   */ 

slatl.tlatl); 

tiati; 


[ 

the 


[6 
[5 
[4 


=slatl[5' 
=  slatl[4]  J 
=slatl[3]  ; 


[3]='.';   /*  inserts  a  decimal  point  */ 


} 

t=0; 

while(t==0)   { 
color(15); 
block(73. 0,12. 0,88. 0,18.2) 5 

strtxy(74. 0,18.0); 
color (5) ; 
tlongh=getnum(10) ;   /^Changes 
if (tlongh!=0)   { 
if  ( (tlongh<=l 4000)5. &(  tlongh>12000)  ) 

itoa(slongh, tlongh) ; 

longh=tlongh; 

slongh  [6l=slongh[5]  ; 

slongh[5]=slongh[4]  ; 

slongh[4]=slongh[3]  ; 

slongh[3]='. ';   /*  inserts  a  decimal  point  */ 

t=i; 

} 


the  high    longitude   value*/ 
{ 
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else 

} 

else 

t=i; 


=0; 

hile 
olor 
bloc 
strt 
olor 
tlon 
if  (t 
if( 


it 
lo 
si 
si 
si 
si 
t  = 
} 
els 
t  = 

} 
else 
t=l 


(t==0)      { 
(15); 

k(73. 0,8. 5, 88. 0,11.5); 
ry(74. 0,13.0); 

(5); 

gl=getnum( 12) ;      /*  changes    the   low    longitude   value   */ 
longl!=0)      { 

(tlongl<=14000)S,S.(tlongl>=12000)&&(tlongl<tlongh))      { 
/*  Makes    sure   that    the    value   of    low   longitude   is 
less    than    that    of    high   longitude        */ 
oa (slongl , tlongl ) ; 
ngl=tlongl J 
ongl[e]=slongl[5]; 
ongl[5]=slongl[4l  J 
ongl  [4]=slongl  [3]  ; 

ongl[3]='.';   /*  inserts  a  decimal  point   */ 
i; 

e 
0; 


} 

} 

i toa (ptr ,no ) 


char  *ptrj 
int  no? 


/*  This  subroutine  changes  an  interger 
into  a  string  of  characters   */ 


{ 

int  KJ 

if((K=no/10)  !=  0) 

ptr  =  itoa (ptr,K) ; 
*ptr=no  +  '0'; 
*++ptr  =  '\0'; 
return(ptr ) ; 
} 


senp()  {   /*  This  displays  the  peak  data  */ 

char  *st,*sp; 

color(l); 

block (0.0,0. 0,100.0, 100.0); 

color(4) ; 

b locfc(0. 0,1 5. 0,100. 0,90.0 ) ; 
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color(2) ; 

strtxy(10. 0,98.0); 

strout (top ) ; 

color(5); 

strtxy(5. 0,86.0); 

St="       RUN  NUMBER  6 

strout (st ) ; 

sp=   ; 

strout (sp) i 
st="Receipt  Time   Peak 

Peak  Data ; 

strout (st ) ; 

st="  20-Feb-80    Number   STM/BM   Freq 

TAU    DOPPLER  Gamma-Sq"; 
strout(st ) J 
strout (sp ) ; 
switch(choice)   { 


REGION  NUMBER  6    TRACK  NUMBER  9  J 


-REE  Station-   -PRE  Station- 


STM/BM   Freq 


/*  There  are  four  possible  sets  of  data 
can  "be  displayed  dependent  on  the 
various  limits  set  by  the  user  */ 


case  'd': 
st="  00:00 
strout (st ) 
st="  15:16 
strout (st ) 
st="  15:16 
strout (st ) 
st="  15:33 
strout(st ) 
st="  15:50 
strout(st ) 
st="  16:07 
strout(st ) 
st="  16:e8 
strout (st ) 
st="  16:09 
strout (st ) 
st="  16:11 
strout (st ) 
strtxy(4. 0,12.0) ; 
st="GOOD  TRACK  WITH  TWO  SETS  OE  ARRAYS  SWITCHING  BAGK  ANT 

FORTH  TO  PROVIDE  DATA."; 
strout (st ) ; 

st="(  NOTICE  THE  TAU  VALUES  ALTERNATING  )"; 
strout (st ) ; 
break; 


0  48.70 

1346024  48.70 

1346031  46.70 

1346028  43.70 


00 
15 
15 
19 
23 
27 
31 
56 
34 


0 
3427 
3533 
3449 
3540 
3453 
3421 
3479 
3429 


0  0.00 

1323024  48.70 

1322031  48.70 

1323024  48.70 

1322031  48.70 

1323025  48.70 

1322032  46.70 
1323024  43.70 
1322031  48.70 


0  0.00 

1322029  48.70 

2411020  48.70 

1322030  48.70 

2411021  48.70 

1322030  48.70 
2411020  46.73 

1322031  48.70 
2411023  48.70 


case  'a': 

st="  16:52 

:56 

0 

0 

48, 

.73 

strout (st ) ; 

st="  16:52: 

:56 

3542 

1333031 

48. 

.70 

strout (st ) i 

st="  16:55 

:37 

3478 

1333041 

48, 

.70 

strout (st ) J 

st="  16:58 

:10 

3548 

1333027 

48, 

.70 

strout (st ) ; 
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st="  16:59:19      3557     132210?   48.70   2411321   48.70 

strout (st ) ; 

St="  17:03:02       3461     1333034   48.70    1346021   48.70 

strout (st )  ; 

st="  17:05:56      3640     1333051   48.70    1346039   48.70 

strout (st ) ; 

St="  17:09:42      3582     1322114   48.72   2411324   48.73 

strout ( st ) > 

st="  17:11:48      3533    1333029   48.70    1346042   48.70 

strout (st) ; 

strtxyU.  0,12.0); 

St="NOT  MUCH  ALTERNATING  OF  ARRAY  PAIRS,  THUS  PROBABLY  NOT 

TOO  GOOD  A  TRACK."; 
strout (st ) » 
break? 

^»  a  c  o    h   • 

st="  21:36:04         0  0   48.70         0   48.70 

strout (st ) J 

St="  21:36:04      3560     2411031   48.70    1441024   46.70 

strout (st) ; 

St="  21:37:09      3532     2412034   48.70    1442067   48.70 

strout (st ) ; 

St="  21:37:52       3571     2411041   48.70    1441028   48.70 

strout (st ) ; 

st="  21:38:38      3564    2411038   48.70    1441021   46.70 

strout (st ); 

st="  21:39:41      3551    2411036   48.70    1441025   48.70 

strout (st ) ; 

St="  21:40:02       3554     2411028   48.70    1441020   46.70 

strout  (st  ) ; 

st="  21:40:58      3584    2411031   46.70    1441324   48.70 

strout (st ) ; 

St="  21:41:44      3547     2411035   48.70    1441013   48.70 

strout  (st ) ; 

strtxy(4. 0,12.0) ; 

st="N0  SWITCHING  0?  ARRAY  PAIRS,  YFT  THERE  IS  A  LOT  OF 

VARIANCE  IN  THE  TAU  VALUES,'  J 
strout (st ); 

st="THUS  A  VERY  POOR  TRACK."; 
strout (st ) ; 
break; 
case  'c': 

St="  06:12:37         0  0   48.70         0   48.70 

strout (st ) ; 

St="  06:12:37      3325     1341021   48.70    1472365   48.70 
strout(st) ; 

st="  06:13:25      3342    1834261   48.70    2437001   46.70 
strout (st ) ; 

St="  06:14:03       3394     1341036   48.70    1472341   48.70 
strout (st ) ; 

st="  06:14:57      3327     1834275   48.70   2437009   48.70 
strout (st ) ; 

st="  06:16:32      3319    1341028   48.70    1472355   46.70 
strout (st ) ; 
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St-   06:17:29       3364     1341025   48.70    1472351   48.70 

strout (st ) ; 

St="  06:18:54      3318     1834268   48.70    2437005   48.70 

strout (st ) ; 

st="  06:20:21      3343    1341329   46.70    1472368   48.70 

strout (st ) ; 

strtxy(4. 0,12.0) J 

st=" FAIRLY  C-OOr  SWITCHING  OF  ARRAY  PAIRS  BUT  WITHIN  AN  ARRAY 

PAIR  THERE  IS  TOO  MUCE"; 
strout (st ) ; 

st=" VARIANCE  DUE  TO  THE  LOW  COHERENCE  LIMITS." J 
strout (st )J 
break; 
} 
} 

senl()  {       /*  This  subroutine  displays  the  position, 

course,  and  speed  of  the  contact   */ 
char  *st ,*spj 
color(l); 

block (0.0, 0.0, 100. 0,100.0); 
color(4) ; 

block (0.0, 15. 0,100.0,90.0); 
color(2) ; 

strtxy(10. 0,98.0); 
strout (top ); 
color (5) ; 
strtxy(5. 0,36.0); 

st="      RUN  NUMBER  6   REGION  NUMBER  6    TRACK  NUMBER  9"; 
strout (st ) ; 

sP="  "; 

strout (sp) ; 
st=" Water  Time 

Speeds"; 
strout (st ) ; 
st="  23-Feb-80 

Speed"; 
strout (st ) ; 
strout (sp) ; 
switch(choice)   { 

/*  Displays  ore  of  four  possible  sets  of  data  */ 
case  'a': 


Peak    Position  Coordinates   Courses  and 
Number   Latitude  Longitude     Course 


st=  16:52 
strout (st ) 
st="  16:52 
strout (st ) 
st="  16:55 
strout (st ) 
st="  16:58 
strout (st ) 
st="  16:59 
strout(st ) 
st="  17:03 
strout(st) 


56 
56 
37 
10 
19 
02 


0 
3542 
3478 
3548 
3557 
3461 


38.5000 
38.4731 
38.4422 
38.4431 
38.4401 
38.4324 


142.5000 
142.4873 
142.4791 
142.4762 
142.4750 
142.4775 


0.0 
142.0 
150.6 
147.3 
156.4 
156.8 
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3640 

38.4246 

142.4689 

144.7 

3582 

38.4263 

142.4663 

136.2 

3533 

38.4221 

142.4572 

149.7 

st="  17:05:56 

strout (st ) ; 

st="  17:09:42 

strout (st ) ; 

st="  17:11:48 

strout (st ) ; 

strtxy(4. 0,12.0) J 

st="POSSIBLY  A  GOOD  TRACK,  BUT  THE  SIZE  OE  TEE  REGION  BEING 

COVERED  IS  A  LITTLE" J 
strout (st ) ; 

st="TOO  LARGE  TO  GET  A  REAL  GOOD  PICTURE  OF  THE  SITUATION." 
strout (st ) ; 
"break; 
case  'b': 

st="  21:36:04        0     36.5000    143.5000        0.0 
strout (st ) ; 

st="  21:36:04     3560     36.4784    143.6534      020.5 
strout (st )  J 

st="  21:37:09     3532     36.5348    143.5739      034.6 
strout (st ) J 

St="  21:37:52     3571     36.5762    143.4936      025.9 
strout (st ) ; 

St="  21:38:38     3564     36.6139    143.4467      012.3 
strout (st ) J 

st="  21:39:41      3551     36.6317    143.4052      005.3 
strout (st ) J 

st="  21:40:02     3554     36.6308    143.3761      014.7 
strout(st ) ; 

st="  21:40:58     3534     36.6536    143.3485      018.1 
strout (st ) ; 

st="  21:41:44     3547     36.6738   143.3263      023.5 
strout(st ) » 
strtxy(4. 0,12.0); 
St="POOR  TRACK  AS  SEEN  BY  THE  COURSE  AND  SPEED  CHANGES, 

PROBABLY  DUE  TO  THE"; 
strout (st) ; 

st=" LARGE  AREA  AND  THE  LOW  COHERENC  LEVEL."; 
strout (st ) ; 
break; 
case  'c': 

st="  06:12:37        0     33.5000    145.5000        0.0 
strout (st ) ; 

st="  06:12:37     3325     33.4734    145.5398      228.4 
strout (st ) ; 

St="  06:13:25     3342     33.4689    145.5402      235.6 
strout (st ) ; 

st="  06:14:03     3394     33.4502    145.5693      243.5 
strout (st ) J 

St="  06:14:57     3327     33.4294    145.5728      227.9 
strout (st ); 

st="  06:16:32     3319     33.3825    145.5829      222.5 
strout (st ); 

st="  06:17:29     3364     33.3518    145.5962      225.3 
strout (st ) ; 
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st=   06:18:54     3318     33.3329    145.6036      233.1 

strout (st )  J 

St="  06:20:21     3343     33.2185    145.6285      242.3 

strout (st ) ; 

strtxy(4. 0,12.0)  ; 

st="EVEN  THOUGH  THE  COURSES  ARE  FAIRLY  STEADY,  TEE  SPEEDS 

ARE  FLUCTUATING"; 
strout (st ) ; 

st="GREATLY  DUE  TO  TEE  LOW  COHERENCE  LIMIT."; 
strout (st )  J 
break; 


case  'd': 

st="  14:5e 

:03 

0 

39.5000 

147.5000 

0.0 

strout (st)  I 

st="  14:58: 

03 

3427 

39.4711 

147.4707 

142.0 

strout (st ) ' 

st="  15:04 

:23 

3533 

39.4682 

147.4552 

154.7 

strout (st )  3 

st="  15:14 

:30 

3449 

39.4212 

147.4139 

153.9 

strout(st ) ; 

st="  15:38: 

.35 

3540 

39.3582 

147.4417 

160.3 

strout (st ) 

st="  15:48: 

:44 

3453 

39.3980 

147.4815 

161.6 

strout ( st ) 5 

st="  15:49 

:31 

3421 

39.4021 

147.4739 

162.4 

strout (st) ; 

st="  15:50: 

:56 

3479 

39.4219 

147.4632 

160.3 

strout (st  ) ' 

st="  15:52 

:34 

3429 

39.4037 

147.4297 

161.1 

strout (st ) ; 

strtxy(4. 0,12.0); 

st="A  VERY  GOOD  TRACK  WITH  STEADY  COURSES  AND  SPEEDS."; 

strout (st ) ; 

break; 

} 

} 

sena()  {   /*  This  subroutine  displays  the  Chi-Square 

scores  for  various  sets  of  data   */ 
char  *st  ,*sp; 
color(l); 

block(0.0, 0.0, 100.0, 100.0); 
color(4); 

block ( 0.0, 15. 0,100. 0,90.0); 
color(2) ; 

strtxy(10. 0,98.0); 
strout (top) ; 
color(5) ; 
strtxy(5. 0,86.0); 

st="  RUN  NUMBER  6   REGION  NUMBER  6   TRACK  NUMBER  9"; 
strout (st) ; 
sp=   ; 

strout (sp) ; 

st="Water  Tiire     peak      Prob      — CHI  Square  Scores  — 
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Score    Stagewise   Cumulative 


Meas  Residuals"; 
strout (st )  J 
st="  23-Eeb-80    Number 

Deltat  Deltaf"; 
strout (st )  > 
strout ( sp) ; 
switch(choice )   { 

/*  Displays  one  of  four  possible  sets  of  data   */ 
case  'd': 

st="  14:58:03         0       0.30      0.0000      0.0000 
strout (st) J 

st="  14:58:03      3427      -1.80      0.3171      0.3171 
strout (st ) ; 

st="  15:04:23      3533      -4.89      0.0162      0.1667 
strout(st ) J 

st="  15:14:30      3449      -3.99      0.4410      0.2531 
strout (st) ; 

St="  15:38:35      3540      -4.66      1.4096      0.2460 
strout (st ) ; 

st="  15:48:44      3453      -4.81      2.0796      0.6527 
strout(st ) J 

st="  15:49:31      3421      -4.31       1.8945      0.8892 
strout (st ) ; 

st="  15:50:56      3479      -4.75      2.0038      0.9327 
strout (st ) ; 

st="  15:52:34      3429      -4.89      2.2693      0.9402 
strout (st ) ; 
strtxyU. 0,12.0)  ; 
st="OUTSTANDING  CUMULATIVE  SCORE  BY  THE  FINAL  TIME  PERIOD, 

THUS  A  VERT  GOOD  TRACK."; 
strout (st ) ; 
break; 
case  'a': 

st="  16:52:56         0       0.Z0      0.0000      0.0000 
strout (st ) ; 

st="  16:52:56      3542      -1.49      0.1435      0.1435 
strout (st ) ; 

st="  16:55:37      3478      -1.27      0.2159      2.1537 
strout (st ) » 

st="  16:58:10      3548      -1.82      0.5382      0.3829 
strout (st ) ; 

st="  16:59:19      3557      -1.95      0.6547      0.4690 
strout  (st )  J 

st="  17:03:02      3461      -2.56      1.1021      0.7023 
strout (st ) ; 

st="  17:05:56      3640      -1.13      3.2371      0.6501 
strout (st ) ; 

st="  17:09:42      3582      -2.03      0.6829      0.6928 
strout (st )  J 

st="  17:11:48      3533      -3.05      0.7926      0.7520 
strout (st ) ; 
strtxyU.  0,12.0); 
st="THE  CUMULATIVE  SCORE  IS  FAIR  BUT  NONE  OF  THE  INDIVIDUAL 

SCORES  IS  REAL  HIGH."; 


168 


strout(st) » 
break? 

s?="    2li36:04  0                 * -M               0-0000               0"0000 

st=SU21:36:04  3563               -3.90               0.1021                0.1021 

sU^ZltS?^  3532               -1.43               0.2341               3.1735 

st"U2U37;52  3571               -1.78               3.3417               3.2638 

tt=SU21:38:38  3564               -1.93               3.3176               3.4173 

sl=9U2i:39;:41  3551               -2.36               3.3814               3.4328 

II^IuIIIm  3554               -2.54               3.4327               3.4458 

tU'llUeUe  3584               -2.36               3.3311               3.4637 

strout(st);  K   4C.po 

st-     21:41:44  3547               -2.21                0.351?               0.45^8 

strout (st ) ; 

U-STEHT#l6i2CUMUIATIYE   SCORE   AND    THUS    A   VERY    POOR   -RACK."; 

strout(st )  ; 

break; 

l\l"    36^12:37  3                 3.33               3.0333               3.0333 

st="U06:12::37  3325               -0.83               3.2134               0.2134 

|?"U06U3;:25  3342               -1.52               3.4327               3.3463 

st=9U36:U;:33  3394               -1.83               3.5621                3.4743 

strout(st);  a   fi a i i 

St-"    06:14:57  3327               -1.97               3.7631                0.6411 

StrOUt(st)i  „     -„«rt                   r    ar>oc 

St-"    06:16:32  3319               -2.24               0.6428               0.6229 

rtr=9U06:t17;29  3364               -2.56               0.8817               0.7536 

Sst=21206:tie:54  3318               -2.72               0.9443               0.7836 

strout(st);  „    __.  _              n  nnr><> 

St-"    06:20:21  3343               -2.74               0.9218               0.7721 

strout (st); 

st="?AIR*CUMULATIVE  VALUES  BUT  LOW  INDIVIDUAL  VALUES  DUE  TO 

LOW  COHERENCE  LIMITS."; 
strout (st ) T 
break; 
} 
} 

sens()  {   /*  This  display  presents  surface  plots  */ 
char  *st  ,*sp; 
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Q-- 

0 

0 

0 

M  = 

0 

oO    "J 

ft 

tt 

N  = 

0 

o     ; 

ft 

ft 

B  = 

0 

0 

• 

W=" 

O     0 

E=" 

0 

oO 

tt 

R=   o 

T-- 

_   •» 

Y  = 

0 

0 


o      0 
color (4) ; 

block( 0.0, 0.0, 100. 0,100.0); 
color(l)? 

block( 0.0, 0.0,100. 0,15.0) i 
block(0.e, 90. 0,1 00. 0,100.0) ? 
color(5); 

block (40.0, 45. 0,71.5, 78.0); 
color(0)T 
strtxy(4. 0,97.0) ; 
strout (top ); 
switch(choice)  { 

/*  Displays  one  of  four  possible  surface  plots  */ 
case   d  ' 
surl();  sur2();  sur3();  sur4(); 
strtxyU.  0,12.0); 
st="jUST  A  LOT  OF  NOISE,  TOO  LOW  COHERENCE  LIMITS  AND  TOO 

LARGE  AN  AREA."; 
strout ( st )  J 
break? 
case  'a': 
surlO?  sur3(); 
strtxy(4. 0,12.0); 
St="    NO  PATTERN 
strout ( st ) ; 
break? 

r*  a  c  p    p   • 

surlO;  sur2();  sur3(); 
strtxyU. 0,12.0); 

st="TOO  MUCH  NOISE  DUE  TO  THE  LOW  COHERENCE  LIMITS 
strout ( st ) ; 
break; 
case  'd': 
sur4();  sur5(); 
strtxy(4. 0,12.0); 

st="GOOD  SOLID  PATTERN  DOWN  THE  LEFT 
strout ( st ) ; 
break; 


IN  THIS  LARGE  AREA 


SIDE  OF  THE  REGION 


} 

color (4) ; 

block(40.0, 78. 0,85.0, 90.0); 
block (71. 5, 45. 0,100. 0,85.0); 
} 


surlO   { 
strtxy(40. 1,80.0); 
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strout (Q ) 
strout (E) 
strout (0 ) 
strout(Y) 
strout (R  ) 
strout (E ) 
strout(T) 
} 

sur2()  { 
strtxy(42,0t78.5)j 

strout (R) 
strout(T) 

strout (V) 
strout(E) 
strout(Y) 
strout(W) 
strout (E) 
} 

sur3()   { 

strtxy(41.0,81.5); 

dblwid(l) 

strout (Q) 

strout(V) 

strout (E) 

strout(W);    /*  Each 

strout(R);     /*  some 

strout(O);     /'' 

strout (Y) 

dblwid(0) 

} 


of  these  short 
circles  on  the 


subroutines  draws 
surface  T)lot  that 


is  presently  being  displayed 


*/ 
*/ 
*/ 


sur4(  ) 

strtxy 

strout 

strout 

strout 

strout 

strout 

strout 

} 

sur5(  ) 

strtxy 

strout 

strout 

strout 

strout 

strout 

strout 

strout 

strtxy 

dblwid 

strout 


{ 

42.9,63.0); 

y); 
r); 
w); 

v); 
t); 
o); 

{ 

40.0,80.0); 

E) 

E) 

V) 

R) 

E) 

Q) 

R) 

43.6,78.3); 

1) 

V) 
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strout 
strout 
strout 
strout 
strout 
strout 
dblvid 
strtxy 
strout 
strout 
strout 
strout 
strout 
strout 
strout 
strtxy 
strout 
strout 
strout 
strout 
strout 
strout 
strout 
} 


2 

F 
B 
"B 
I 
3 
0 

M 
B 
M 
N 

M 

E 

N 

M 

40 

M 

N 

M 

M 

3 

N 

M 


0,30.9); 


2,79.5); 


changcolor()      { 

/*  Fstablishes 

int   a  [16]  J 

a[0]    =   triple(0,0,0); 

a[l]    =  triple(15,0,3); 

a  [2]    =   triple(0,15,0); 

a  [3]    =   triple(0,0,15); 

a[4]    =   triple(15,5,0)J 

a  [5]    =   triple(2,0,6); 

a  [6]    =   triple(0,10,0); 

a  [7]    =   triple(2,6,10); 

a  [8]    =   triple(6,10f2); 

a  [9]    =   triple(10,2,6); 

a  [10]    =   triple    (13,5,2); 

a  [111    =   triple(5,2,13); 

a  [12]    =   triple    (2,13,5); 

a  [13]    =   triple(15,0,15); 

a  [14]    =   triple(10,4,4); 

a  [15]    =   triple(15,15,15); 

clrtbl(10,a); 

return; 
}        /*  End   of   the   Senario 


a   new   color    table     */ 


*/ 
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